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