mirror of
https://github.com/moparisthebest/curl
synced 2024-08-13 17:03:50 -04:00
remove the dumpit file after use
This commit is contained in:
parent
bc67228576
commit
d2abe44e6f
@ -65,7 +65,8 @@ close(READ);
|
|||||||
if($c) {
|
if($c) {
|
||||||
my @test = `gzip --version 2>&1`;
|
my @test = `gzip --version 2>&1`;
|
||||||
if($test[0] =~ /gzip/) {
|
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;
|
binmode GZIP;
|
||||||
for(@out) {
|
for(@out) {
|
||||||
print GZIP $_;
|
print GZIP $_;
|
||||||
@ -80,6 +81,8 @@ if($c) {
|
|||||||
$gzipped += length($_);
|
$gzipped += length($_);
|
||||||
}
|
}
|
||||||
close(GZIP);
|
close(GZIP);
|
||||||
|
|
||||||
|
unlink("dumpit.gz");
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
# no gzip, no compression!
|
# no gzip, no compression!
|
||||||
|
Loading…
Reference in New Issue
Block a user