Removed the unused Append => 0 parameter when creating compression I/O.
This commit is contained in:
parent
ac69039180
commit
0a4ee2d130
4
arclog
4
arclog
@ -1724,7 +1724,7 @@ sub close : method {
|
|||||||
|
|
||||||
# Create empty compressed content
|
# Create empty compressed content
|
||||||
print STDERR " Applying empty compressed content ... " if $VERBOSE > 2;
|
print STDERR " Applying empty compressed content ... " if $VERBOSE > 2;
|
||||||
$_ = IO::Compress::Gzip->new($FH, Append => 0)
|
$_ = IO::Compress::Gzip->new($FH)
|
||||||
or die "$THIS_FILE: $file: $IO::Compress::Gzip::GzipError";
|
or die "$THIS_FILE: $file: $IO::Compress::Gzip::GzipError";
|
||||||
$_->close or die "$THIS_FILE: $file: $IO::Compress::Gzip::GzipError";
|
$_->close or die "$THIS_FILE: $file: $IO::Compress::Gzip::GzipError";
|
||||||
undef $_;
|
undef $_;
|
||||||
@ -2639,7 +2639,7 @@ sub close : method {
|
|||||||
|
|
||||||
# Create empty compressed content
|
# Create empty compressed content
|
||||||
print STDERR " Applying empty compressed content ... " if $VERBOSE > 2;
|
print STDERR " Applying empty compressed content ... " if $VERBOSE > 2;
|
||||||
$_ = IO::Compress::Xz->new($FH, Append => 0)
|
$_ = IO::Compress::Xz->new($FH)
|
||||||
or die "$THIS_FILE: $file: $IO::Compress::Xz::XzError";
|
or die "$THIS_FILE: $file: $IO::Compress::Xz::XzError";
|
||||||
$_->close or die "$THIS_FILE: $file: $IO::Compress::Xz::XzError";
|
$_->close or die "$THIS_FILE: $file: $IO::Compress::Xz::XzError";
|
||||||
undef $_;
|
undef $_;
|
||||||
|
Loading…
Reference in New Issue
Block a user