diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-09-07 03:43:25 +0200 |
---|---|---|
committer | Pascal Terjan <pterjan@gmail.com> | 2014-10-20 21:29:56 +0000 |
commit | 58c61943ef3825bf7228d0ea98a5eda3be7c7b23 (patch) | |
tree | 378aba07a3b0ec8e641eaff0c4f9c533736adf76 /perl-install/install/pkgs.pm | |
parent | 7df6ec8f9e5d3ad76f5584e775f37b99125be671 (diff) | |
download | drakx-58c61943ef3825bf7228d0ea98a5eda3be7c7b23.tar drakx-58c61943ef3825bf7228d0ea98a5eda3be7c7b23.tar.gz drakx-58c61943ef3825bf7228d0ea98a5eda3be7c7b23.tar.bz2 drakx-58c61943ef3825bf7228d0ea98a5eda3be7c7b23.tar.xz drakx-58c61943ef3825bf7228d0ea98a5eda3be7c7b23.zip |
rename "no_suggests" option as "no_recommends"
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r-- | perl-install/install/pkgs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index a2afddbf5..b612b5282 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -292,9 +292,9 @@ sub _resolve_requested_and_check { my ($packages, $state, $requested) = @_; my @l = $packages->resolve_requested($packages->{rpmdb}, $state, $requested, - callback_choices => \&packageCallbackChoices, no_suggests => $::o->{no_suggests}); + callback_choices => \&packageCallbackChoices, no_recommends => $::o->{no_recommends}); - #- keep track of recommended packages so that theys could be unselected if the "no suggests" option is choosen later: + #- keep track of recommended packages so that theys could be unselected if the "no recommends" option is choosen later: if (!is_empty_hash_ref($state->{selected})) { my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{recommended} } keys $state->{selected}; @recommended_package_ids = uniq(@recommended_package_ids, @new_ids); @@ -352,7 +352,7 @@ sub unselectAllPackages { foreach (@{$packages->{depslist}}) { my $to_select = $_->flag_base || $_->flag_installed && $_->flag_selected; # unselect recommended packages if minimal install: - if ($::o->{no_suggests} && member($_->id, @recommended_package_ids)) { + if ($::o->{no_recommends} && member($_->id, @recommended_package_ids)) { log::l("unselecting recommended package " . $_->name); undef $to_select; } |