From 76f13a5bc4915173553b66d74c1021880e47f557 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 17 Apr 2012 21:15:26 +0000
Subject: (_resolve_requested_and_check) make it slighty more readable

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

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

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