diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-01-04 17:50:33 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-01-04 17:50:33 +0000 |
| commit | bf373a1565baddc2419db2a2febe32ff63fac3c5 (patch) | |
| tree | d5fba4876ebbda5b21187815c0954c550c2e759c /perl-install | |
| parent | 883e070b411abc63e7ab89efe88cbc51e320c139 (diff) | |
| download | drakx-backup-do-not-use-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar drakx-backup-do-not-use-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.gz drakx-backup-do-not-use-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.bz2 drakx-backup-do-not-use-bf373a1565baddc2419db2a2febe32ff63fac3c5.tar.xz drakx-backup-do-not-use-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.pm | 3 |
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 { |