Index: mkhelp.pl
===================================================================
RCS file: /repository/curl/src/mkhelp.pl,v
retrieving revision 1.7
diff -u -r1.7 mkhelp.pl
--- mkhelp.pl	26 Jun 2003 11:34:07 -0000	1.7
+++ mkhelp.pl	28 Jul 2003 22:05:05 -0000
@@ -6,6 +6,12 @@
 # THEY DON'T FIT ME :-)
 
 # Get readme file as parameter:
+
+if($ARGV[0] eq "-c") {
+    $c=1;
+    shift @ARGV;
+}
+
 my $README = $ARGV[0];
 
 if($README eq "") {
@@ -70,16 +76,19 @@
 if($c) {
     my @test = `gzip --version 2>&1`;
     if($test[0] =~ /gzip/) {
-        open(GZIP, "|gzip -9 >dumpit.gz") ||
-            die "can't run gzip, try without -c";
+        open(GZIP, ">dumpit") ||
+            die "can't create the dumpit file, try without -c";
         binmode GZIP;
         for(@out) {
             print GZIP $_;
             $gzip += length($_);
         }
         close(GZIP);
+
+        system("gzip --best --no-name dumpit");
         
-        open(GZIP, "<dumpit.gz");
+        open(GZIP, "<dumpit.gz") ||
+             die "can't read the dumpit.gz file, try without -c";
         binmode GZIP;
         while(<GZIP>) {
             push @gzip, $_;