From 292debae1f8908a5dd34946ec6d3b504b9016839 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 21:44:46 +0000 Subject: packdrake.pm is now perl_checker compliant --- packdrake-pm/packdrake.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'packdrake-pm/packdrake.pm') 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"; } -- cgit v1.2.1