diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-02 15:34:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-02 15:34:24 +0000 |
| commit | 81ea6be5a28c7575227cd5658947246261f9ffa4 (patch) | |
| tree | 1e28dcd9ec3d591446f40f3f57754a2f2357dbf3 /perl-install | |
| parent | 6640f9593094c2cb381eced96e2437a5f2a5e64f (diff) | |
| download | drakx-81ea6be5a28c7575227cd5658947246261f9ffa4.tar drakx-81ea6be5a28c7575227cd5658947246261f9ffa4.tar.gz drakx-81ea6be5a28c7575227cd5658947246261f9ffa4.tar.bz2 drakx-81ea6be5a28c7575227cd5658947246261f9ffa4.tar.xz drakx-81ea6be5a28c7575227cd5658947246261f9ffa4.zip | |
Workaround : Don't call method directly
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 121e421c8..799f95a46 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -219,7 +219,7 @@ sub packagesToInstall { my ($packages) = @_; my @packages; foreach (values %{$packages->{mediums}}) { - $_->selected or next; + $_->{selected} or next; log::l("examining packagesToInstall of medium $_->{descr}"); push @packages, grep { $_->flag_selected } packagesOfMedium($packages, $_); } |