diff options
| -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 { |