From bf373a1565baddc2419db2a2febe32ff63fac3c5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 4 Jan 2002 17:50:33 +0000
Subject: fixed empty flat package selection when giving a limit to medium.
---
perl-install/install_steps_gtk.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b13a1467d..bed9318dd 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -356,7 +356,8 @@ sub choosePackagesTree {
my ($add_node, $flat) = @_;
if ($flat) {
foreach (sort keys %{$packages->{names}}) {
- !$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium or next;
+ !$limit_to_medium ||
+ pkgs::packageMedium($packages, $packages->{names}{$_}) == $limit_to_medium or next;
$add_node->($_, undef);
}
} else {
--
cgit v1.2.1