summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-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 {