summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-17 21:15:26 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-17 21:15:26 +0000
commit5071361f08a0a25f517296a27d6423f4d2a18172 (patch)
treed061e8901b47c7221edf873b88d79184ab48ccaf
parente6b8ab46680c101c6fccfc2677a5f60aa2a77066 (diff)
downloaddrakx-5071361f08a0a25f517296a27d6423f4d2a18172.tar
drakx-5071361f08a0a25f517296a27d6423f4d2a18172.tar.gz
drakx-5071361f08a0a25f517296a27d6423f4d2a18172.tar.bz2
drakx-5071361f08a0a25f517296a27d6423f4d2a18172.tar.xz
drakx-5071361f08a0a25f517296a27d6423f4d2a18172.zip
(_resolve_requested_and_check) make it slighty more readable
-rw-r--r--perl-install/install/pkgs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 9420f0cea..fa24840f2 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -279,7 +279,8 @@ sub _resolve_requested_and_check {
my @l = $packages->resolve_requested($packages->{rpmdb}, $state, $requested,
callback_choices => \&packageCallbackChoices, no_suggests => $::o->{no_suggests});
- @suggested_package_ids = uniq(@suggested_package_ids, map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{suggested} } keys $state->{selected});
+ my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{suggested} } keys $state->{selected};
+ @suggested_package_ids = uniq(@suggested_package_ids, @new_ids);
my $error;
if (find { !exists $state->{selected}{$_} } keys %$requested) {