remove the dumpit file after use
authorDaniel Stenberg <daniel@haxx.se>
Thu, 12 Jun 2003 19:17:08 +0000 (19:17 +0000)
committerDaniel Stenberg <daniel@haxx.se>
Thu, 12 Jun 2003 19:17:08 +0000 (19:17 +0000)
src/mkhelp.pl

index 8487b87..2ff41a2 100644 (file)
@@ -65,7 +65,8 @@ close(READ);
 if($c) {
     my @test = `gzip --version 2>&1`;
     if($test[0] =~ /gzip/) {
-        open(GZIP, "|gzip -9 >dumpit.gz");
+        open(GZIP, "|gzip -9 >dumpit.gz") ||
+            die "can't run gzip, try without -c";
         binmode GZIP;
         for(@out) {
             print GZIP $_;
@@ -80,6 +81,8 @@ if($c) {
             $gzipped += length($_);
         }
         close(GZIP);
+
+        unlink("dumpit.gz");
     }
     else {
         # no gzip, no compression!