summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index b612b5282..fc029294b 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -296,7 +296,7 @@ sub _resolve_requested_and_check {
#- keep track of recommended packages so that theys could be unselected if the "no recommends" option is choosen later:
if (!is_empty_hash_ref($state->{selected})) {
- my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{recommended} } keys $state->{selected};
+ my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{recommended} } keys %{$state->{selected}};
@recommended_package_ids = uniq(@recommended_package_ids, @new_ids);
}