From a6799483a900c5e9da162b227e01601069a81deb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 19 Feb 2015 17:49:23 +0100
Subject: silent a warning with perl-5.20

---
 perl-install/install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/pkgs.pm')

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);
     }
 
-- 
cgit v1.2.1