diff options
Diffstat (limited to 'packdrake-pm')
| -rw-r--r-- | packdrake-pm/packdrake.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/packdrake-pm/packdrake.pm b/packdrake-pm/packdrake.pm index a9531af..36aa983 100644 --- a/packdrake-pm/packdrake.pm +++ b/packdrake-pm/packdrake.pm @@ -315,8 +315,6 @@ sub new { } sub cat_archive { - my $pid; - foreach (@_) { my $packer = new packdrake; @@ -330,7 +328,7 @@ sub cat_archive { open STDIN, "<$_" or die "packdrake: unable to open archive $_\n"; open STDERR, ">/dev/null" or die "packdrake: unable to open /dev/null\n"; - exec (($ENV{LD_LOADER} ? $ENV{LD_LOADER} : ()), split " ", $packer->{uncompress}); + exec(($ENV{LD_LOADER} ? $ENV{LD_LOADER} : @{[]}), split " ", $packer->{uncompress}); die "packdrake: unable to cat the archive with $packer->{uncompress}\n"; } |