From 81ea6be5a28c7575227cd5658947246261f9ffa4 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 2 Sep 2005 15:34:24 +0000
Subject: Workaround : Don't call method directly

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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, $_);
     }
-- 
cgit v1.2.1