imacat/reslog
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Revised the compression and decompression parameters to run binaries programs.

Browse Source
This commit is contained in:
依瑪貓
2022-03-19 21:39:07 +08:00
parent effc9b8657
commit 9605a118df
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
t/_helper.pm
View File

@ -200,7 +200,7 @@ sub read_file($) {
} else {
my ($PH, $CMD);
$CMD = where_is "gzip";
$CMD = "\"$CMD\" -cd \"$file\"";
$CMD = "\"$CMD\" -cdf \"$file\"";
open $PH, "$CMD |" or die this_file . ": $CMD: $!";
$content = join "", <$PH>;
close $PH or die this_file . ": $CMD: $!";
@ -223,7 +223,7 @@ sub read_file($) {
} else {
my ($PH, $CMD);
$CMD = where_is "bzip2";
$CMD = "bzip2 -cd \"$file\"";
$CMD = "bzip2 -cdf \"$file\"";
open $PH, "$CMD |" or die this_file . ": $CMD: $!";
$content = join "", <$PH>;
close $PH or die this_file . ": $CMD: $!";
@ -326,7 +326,7 @@ sub write_file($$) {
} else {
my ($PH, $CMD);
$CMD = where_is "bzip2";
$CMD = "\"$CMD\" -9f > \"$file\"";
$CMD = "\"$CMD\" -c9f > \"$file\"";
open $PH, "| $CMD" or die this_file . ": $CMD: $!";
print $PH $content or die this_file . ": $CMD: $!";
close $PH or die this_file . ": $CMD: $!";