diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-02-19 17:49:23 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-02-19 18:08:28 +0100 |
| commit | a6799483a900c5e9da162b227e01601069a81deb (patch) | |
| tree | e5d84892c140274b598add9907bb2de5fcb07acf /perl-install | |
| parent | 8303c61eeea4fffd6953ca7178bc58878953f560 (diff) | |
| download | drakx-a6799483a900c5e9da162b227e01601069a81deb.tar drakx-a6799483a900c5e9da162b227e01601069a81deb.tar.gz drakx-a6799483a900c5e9da162b227e01601069a81deb.tar.bz2 drakx-a6799483a900c5e9da162b227e01601069a81deb.tar.xz drakx-a6799483a900c5e9da162b227e01601069a81deb.zip | |
silent a warning with perl-5.20
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/pkgs.pm | 2 |
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); } |