remove the dumpit file after use

1 files changed, 4 insertions, 1 deletions

diff --git a/src/mkhelp.pl b/src/mkhelp.pl
index 8487b8782..2ff41a291 100644
--- a/src/mkhelp.pl
+++ b/src/mkhelp.pl
@@ -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!