summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-09-07 03:43:25 +0200
committerPascal Terjan <pterjan@gmail.com>2014-10-20 21:29:56 +0000
commit58c61943ef3825bf7228d0ea98a5eda3be7c7b23 (patch)
tree378aba07a3b0ec8e641eaff0c4f9c533736adf76 /perl-install/install/pkgs.pm
parent7df6ec8f9e5d3ad76f5584e775f37b99125be671 (diff)
downloaddrakx-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.pm6
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;
}