diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-04-17 21:15:26 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-04-17 21:15:26 +0000 |
commit | 76f13a5bc4915173553b66d74c1021880e47f557 (patch) | |
tree | d061e8901b47c7221edf873b88d79184ab48ccaf /perl-install | |
parent | f7d04cc2a4d9d4aeb9e3c43d711e7c1297bacf95 (diff) | |
download | drakx-backup-do-not-use-76f13a5bc4915173553b66d74c1021880e47f557.tar drakx-backup-do-not-use-76f13a5bc4915173553b66d74c1021880e47f557.tar.gz drakx-backup-do-not-use-76f13a5bc4915173553b66d74c1021880e47f557.tar.bz2 drakx-backup-do-not-use-76f13a5bc4915173553b66d74c1021880e47f557.tar.xz drakx-backup-do-not-use-76f13a5bc4915173553b66d74c1021880e47f557.zip |
(_resolve_requested_and_check) make it slighty more readable
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install/pkgs.pm | 3 |
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) { |