summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/pkgs.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 3b39adcbf..a2afddbf5 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -287,17 +287,17 @@ sub select_by_package_names_or_die {
}
}
-my @suggested_package_ids;
+my @recommended_package_ids;
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});
- #- keep track of suggested 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 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);
+ my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{recommended} } keys $state->{selected};
+ @recommended_package_ids = uniq(@recommended_package_ids, @new_ids);
}
my $error;
@@ -351,9 +351,9 @@ sub unselectAllPackages {
log::l("unselecting all packages...");
foreach (@{$packages->{depslist}}) {
my $to_select = $_->flag_base || $_->flag_installed && $_->flag_selected;
- # unselect suggested packages if minimal install:
- if ($::o->{no_suggests} && member($_->id, @suggested_package_ids)) {
- log::l("unselecting suggested package " . $_->name);
+ # unselect recommended packages if minimal install:
+ if ($::o->{no_suggests} && member($_->id, @recommended_package_ids)) {
+ log::l("unselecting recommended package " . $_->name);
undef $to_select;
}
if ($to_select) {