diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
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"; |