diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-04-19 18:31:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-04-19 18:31:43 +0000 |
| commit | 8563da1a3ac0b1f0d47266add76bebed62e4887b (patch) | |
| tree | 392d4f194ec967d8ca9305117c24abc30b9fd4b3 /perl-install | |
| parent | 175b616e24f31a12cb6e1206688f47a4c3da47bc (diff) | |
| download | drakx-8563da1a3ac0b1f0d47266add76bebed62e4887b.tar drakx-8563da1a3ac0b1f0d47266add76bebed62e4887b.tar.gz drakx-8563da1a3ac0b1f0d47266add76bebed62e4887b.tar.bz2 drakx-8563da1a3ac0b1f0d47266add76bebed62e4887b.tar.xz drakx-8563da1a3ac0b1f0d47266add76bebed62e4887b.zip | |
(_resolve_requested_and_check) explain
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/pkgs.pm | 1 |
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); |