From c4b29f0099efaef4d1cb72f7761038bd83f79b1f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= <imacat@mail.imacat.idv.tw>
Date: Sat, 19 Mar 2022 10:06:28 +0800
Subject: [PATCH] Added BlockSize100K => 9 with the bzip2 compression.

---
 arclog | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/arclog b/arclog
index 60774dd..320c5d2 100755
--- a/arclog
+++ b/arclog
@@ -2077,7 +2077,7 @@ sub open_write : method {
     }
     ($self->{"file"}, $self->{"FH"}) = ($file, $FH);
     print STDERR "  Attaching file with IO::Compress::Bzip2 ... " if $VERBOSE > 2;
-    $self->{"bz"} = IO::Compress::Bzip2->new($FH)
+    $self->{"bz"} = IO::Compress::Bzip2->new($FH, BlockSize100K => 9)
                                         or die "$THIS_FILE: $file: $IO::Compress::Bzip2::Bzip2Error";
     print STDERR "done\n" if $VERBOSE > 2;
     return;
@@ -2122,7 +2122,7 @@ sub open_append : method {
                                         or die "$THIS_FILE: $file: $IO::Uncompress::Bunzip2::Bunzip2Error";
         print STDERR "done\n" if $VERBOSE > 2;
         print STDERR "  Attaching file with IO::Compress::Bzip2 ... " if $VERBOSE > 2;
-        $bz = IO::Compress::Bzip2->new($FH)
+        $bz = IO::Compress::Bzip2->new($FH, BlockSize100K => 9)
                                         or die "$THIS_FILE: $file: $IO::Compress::Bzip2::Bzip2Error";
         print STDERR "done\n" if $VERBOSE > 2;
 
@@ -2139,7 +2139,7 @@ sub open_append : method {
     # A whole new file
     } else {
         print STDERR "  Attaching file with IO::Compress::Bzip2 ... " if $VERBOSE > 2;
-        $bz = IO::Compress::Bzip2->new($FH)
+        $bz = IO::Compress::Bzip2->new($FH, BlockSize100K => 9)
                                         or die "$THIS_FILE: $file: $IO::Compress::Bzip2::Bzip2Error";
         print STDERR "done\n" if $VERBOSE > 2;
     }
@@ -2181,7 +2181,7 @@ sub close : method {
 
         # Create empty compressed content
         print STDERR "  Applying empty compressed content ... " if $VERBOSE > 2;
-        $_ = IO::Compress::Bzip2->new($FH)
+        $_ = IO::Compress::Bzip2->new($FH, BlockSize100K => 9)
                                         or die "$THIS_FILE: $file: $IO::Compress::Bzip2::Bzip2Error";
         $_->close                       or die "$THIS_FILE: $file: $IO::Compress::Bzip2::Bzip2Error";
         undef $_;