From aaa5b34074c7dbf8188553ff1f60badac3f379a6 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:15:04 +0800
Subject: [PATCH] Revised the compression switches when calling binary
 executables for consistency.

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

diff --git a/arclog b/arclog
index c27e2ec..857cb1f 100755
--- a/arclog
+++ b/arclog
@@ -2285,7 +2285,7 @@ sub open_write : method {
     ($self->{"file"}, $self->{"FH"}) = ($file, $FH);
     $EXEC = where_is "bzip2" if !defined $EXEC;
 
-    @_ = ($EXEC, "-9f");
+    @_ = ($EXEC, "-c9f");
     @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
     $CMD = join " ", @_;
     print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2356,7 +2356,7 @@ sub open_append : method {
         open STDIN, "<&", $STDIN        or die "$THIS_FILE: STDIN: $!";
         print STDERR "done\n" if $VERBOSE > 2;
 
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2384,7 +2384,7 @@ sub open_append : method {
 
     # A whole new file
     } else {
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2444,7 +2444,7 @@ sub close : method {
         # Create empty compressed content
         print STDERR "  Applying empty compressed content ... " if $VERBOSE > 2;
         $EXEC = where_is "bzip2" if !defined $EXEC;
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         # Redirect STDOUT to $FH
@@ -2743,7 +2743,7 @@ sub open_write : method {
     ($self->{"file"}, $self->{"FH"}) = ($file, $FH);
     $EXEC = where_is "xz" if !defined $EXEC;
 
-    @_ = ($EXEC, "-9f");
+    @_ = ($EXEC, "-c9f");
     @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
     $CMD = join " ", @_;
     print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2814,7 +2814,7 @@ sub open_append : method {
         open STDIN, "<&", $STDIN        or die "$THIS_FILE: STDIN: $!";
         print STDERR "done\n" if $VERBOSE > 2;
 
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2842,7 +2842,7 @@ sub open_append : method {
 
     # A whole new file
     } else {
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         print STDERR "  Starting $CMD to file ... " if $VERBOSE > 2;
@@ -2902,7 +2902,7 @@ sub close : method {
         # Create empty compressed content
         print STDERR "  Applying empty compressed content ... " if $VERBOSE > 2;
         $EXEC = where_is "xz" if !defined $EXEC;
-        @_ = ($EXEC, "-9f");
+        @_ = ($EXEC, "-c9f");
         @_ = map "\"$_\"", @_ if $^O eq "MSWin32";
         $CMD = join " ", @_;
         # Redirect STDOUT to $FH