From a6eb5667036b575ddb92572b2a4a1694a38551ef 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:04:38 +0800
Subject: [PATCH] Revised the compression parameter in the test suite helper.

---
 t/_helper.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/_helper.pm b/t/_helper.pm
index df2f500..e261e88 100644
--- a/t/_helper.pm
+++ b/t/_helper.pm
@@ -344,7 +344,7 @@ sub write_file($$) {
         } else {
             my ($PH, $CMD);
             $CMD = where_is "gzip";
-            $CMD = "\"$CMD\" -c9f > \"$file\"";
+            $CMD = "\"$CMD\" -cf > \"$file\"";
             open $PH, "| $CMD"          or die this_file . ": $CMD: $!";
             print $PH $content          or die this_file . ": $CMD: $!";
             close $PH                   or die this_file . ": $CMD: $!";
@@ -367,7 +367,7 @@ sub write_file($$) {
         } else {
             my ($PH, $CMD);
             $CMD = where_is "bzip2";
-            $CMD = "\"$CMD\" -9f > \"$file\"";
+            $CMD = "\"$CMD\" -cf > \"$file\"";
             open $PH, "| $CMD"        or die this_file . ": $CMD: $!";
             print $PH $content        or die this_file . ": $CMD: $!";
             close $PH                 or die this_file . ": $CMD: $!";
@@ -390,7 +390,7 @@ sub write_file($$) {
         } else {
             my ($PH, $CMD);
             $CMD = where_is "xz";
-            $CMD = "\"$CMD\" -9f > \"$file\"";
+            $CMD = "\"$CMD\" -cf > \"$file\"";
             open $PH, "| $CMD"        or die this_file . ": $CMD: $!";
             print $PH $content        or die this_file . ": $CMD: $!";
             close $PH                 or die this_file . ": $CMD: $!";