summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-02 15:34:24 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-02 15:34:24 +0000
commit81ea6be5a28c7575227cd5658947246261f9ffa4 (patch)
tree1e28dcd9ec3d591446f40f3f57754a2f2357dbf3 /perl-install
parent6640f9593094c2cb381eced96e2437a5f2a5e64f (diff)
downloaddrakx-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.pm2
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, $_);
}