remove the dumpit file after use

This commit is contained in:
Daniel Stenberg 2003-06-12 19:17:08 +00:00
parent bc67228576
commit d2abe44e6f
1 changed files with 4 additions and 1 deletions

View 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!