aboutsummaryrefslogtreecommitdiffstats
path: root/packdrake-pm/packdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:44:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:44:46 +0000
commit292debae1f8908a5dd34946ec6d3b504b9016839 (patch)
tree0cf9f33f0ef070e9b7ca6b0446de979fbba2db51 /packdrake-pm/packdrake.pm
parent8acce9a518959b70cd740fafaea69c44578e13b8 (diff)
downloadrpmtools-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/packdrake.pm')
-rw-r--r--packdrake-pm/packdrake.pm4
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";
}