summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-13 16:23:45 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-13 16:23:45 +0000
commit39b51c96e54f880be2d2fb909f44118a6c209d7c (patch)
tree86b09fbe4e5042b5fa5b4269d79cf9042993a568 /perl-install/pkgs.pm
parent925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (diff)
downloaddrakx-backup-do-not-use-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar
drakx-backup-do-not-use-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.gz
drakx-backup-do-not-use-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.bz2
drakx-backup-do-not-use-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.xz
drakx-backup-do-not-use-39b51c96e54f880be2d2fb909f44118a6c209d7c.zip
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index a65b3eb90..103af1ec3 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -64,7 +64,9 @@ sub psReadComponentsFile {
$inComp = 0;
$comps{$current{name}} = { %current };
} else {
- push @{$current{packages}}, $packages->{$_} || log::w "package $_ does not exist (line $n of comps file)";
+ $packages->{$_} ?
+ push @{$current{packages}}, $packages->{$_} :
+ log::w("package $_ does not exist (line $n of comps file)");
}
} else {
my ($selected, $hidden, $name) = /^([01])\s*(--hide)?\s*(.*)/ or die "bad comps file at line $n";