diff --git a/t/_helper.pm b/t/_helper.pm index 1b82ba6..9cb5202 100644 --- a/t/_helper.pm +++ b/t/_helper.pm @@ -241,7 +241,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: $!"; @@ -264,7 +264,7 @@ sub read_file($) { } else { my ($PH, $CMD); $CMD = where_is "bzip2"; - $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: $!"; @@ -287,7 +287,7 @@ sub read_file($) { } else { my ($PH, $CMD); $CMD = where_is "xz"; - $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: $!";