From f424fd90b063e53abfcca97d3544fcd590f00dd0 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 25 Aug 2005 13:58:56 +0000
Subject: Strange typing bug workaround

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3ae45f94d..499d4bb17 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -247,7 +247,8 @@ sub packageRequest {
     #- check for medium selection, if the medium has not been
     #- selected, the package cannot be selected.
     foreach (values %{$packages->{mediums}}) {
-	!$_->selected && $pkg->id >= $_->{start} && $pkg->id <= $_->{end} and return;
+	#- XXX $_ should always be an object here
+	!$_->{selected} && $pkg->id >= $_->{start} && $pkg->id <= $_->{end} and return;
     }
 
     return { $pkg->id => 1 };
-- 
cgit v1.2.1