version 1.8, 2004/05/11 09:57:52
|
version 1.9, 2004/08/04 17:34:29
|
Line 100 sub expand_zip {
|
Line 100 sub expand_zip {
|
my ($tempdir,$filename) = @_; |
my ($tempdir,$filename) = @_; |
my $zipfile = "$tempdir/$filename"; |
my $zipfile = "$tempdir/$filename"; |
if ($filename =~ m|\.zip$|i) { |
if ($filename =~ m|\.zip$|i) { |
|
# unzip can cause an sh launch which can pass along all of %ENV |
|
# which can be too large for /bin/sh to handle |
|
my %oldENV=%ENV; |
|
undef(%ENV); |
open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null |"); |
open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null |"); |
close(OUTPUT); |
close(OUTPUT); |
|
%ENV=%oldENV; |
|
undef(%oldENV); |
} else { |
} else { |
return 'nozip'; |
return 'nozip'; |
} |
} |