summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-19 18:31:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-19 18:31:43 +0000
commit7eaa068a41baf52ecb9e7c59a621593e5b391902 (patch)
tree392d4f194ec967d8ca9305117c24abc30b9fd4b3 /perl-install
parent688327a18a85679ff62262559dafbf44c3b6f521 (diff)
downloaddrakx-backup-do-not-use-7eaa068a41baf52ecb9e7c59a621593e5b391902.tar
drakx-backup-do-not-use-7eaa068a41baf52ecb9e7c59a621593e5b391902.tar.gz
drakx-backup-do-not-use-7eaa068a41baf52ecb9e7c59a621593e5b391902.tar.bz2
drakx-backup-do-not-use-7eaa068a41baf52ecb9e7c59a621593e5b391902.tar.xz
drakx-backup-do-not-use-7eaa068a41baf52ecb9e7c59a621593e5b391902.zip
(_resolve_requested_and_check) explain
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/pkgs.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 266c0a5b9..dcdceb45c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -280,6 +280,7 @@ sub _resolve_requested_and_check {
my @l = $packages->resolve_requested($packages->{rpmdb}, $state, $requested,
callback_choices => \&packageCallbackChoices, no_suggests => $::o->{no_suggests});
+ #- keep track of suggested packages so that theys could be unselected if the "no suggests" option is choosen later:
if (!is_empty_hash_ref($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);