summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-01-04 17:50:33 +0000
committerFrancois Pons <fpons@mandriva.com>2002-01-04 17:50:33 +0000
commitbf373a1565baddc2419db2a2febe32ff63fac3c5 (patch)
treed5fba4876ebbda5b21187815c0954c550c2e759c /perl-install
parent883e070b411abc63e7ab89efe88cbc51e320c139 (diff)
downloaddrakx-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar
drakx-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.gz
drakx-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.bz2
drakx-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.xz
drakx-bf373a1565baddc2419db2a2febe32ff63fac3c5.zip
fixed empty flat package selection when giving a limit to medium.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 2 insertions, 1 deletions
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 {