diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 21:44:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 21:44:46 +0000 |
| commit | 292debae1f8908a5dd34946ec6d3b504b9016839 (patch) | |
| tree | 0cf9f33f0ef070e9b7ca6b0446de979fbba2db51 /packdrake-pm | |
| parent | 8acce9a518959b70cd740fafaea69c44578e13b8 (diff) | |
| download | rpmtools-292debae1f8908a5dd34946ec6d3b504b9016839.tar rpmtools-292debae1f8908a5dd34946ec6d3b504b9016839.tar.gz rpmtools-292debae1f8908a5dd34946ec6d3b504b9016839.tar.bz2 rpmtools-292debae1f8908a5dd34946ec6d3b504b9016839.tar.xz rpmtools-292debae1f8908a5dd34946ec6d3b504b9016839.zip | |
packdrake.pm is now perl_checker compliant4.5.6
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"; } |