diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-13 16:23:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-13 16:23:45 +0000 |
| commit | 39b51c96e54f880be2d2fb909f44118a6c209d7c (patch) | |
| tree | 86b09fbe4e5042b5fa5b4269d79cf9042993a568 /perl-install/pkgs.pm | |
| parent | 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (diff) | |
| download | drakx-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar drakx-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.gz drakx-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.bz2 drakx-39b51c96e54f880be2d2fb909f44118a6c209d7c.tar.xz drakx-39b51c96e54f880be2d2fb909f44118a6c209d7c.zip | |
*** empty log message ***
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"; |