summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-18 06:27:08 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-18 06:27:08 +0000
commit4e169e884d79d5245b69a0339ded45fc0352f941 (patch)
treebf3e969f0ecf09980b5fa4537e534c78af900ebd /perl-install/install
parent5071361f08a0a25f517296a27d6423f4d2a18172 (diff)
downloaddrakx-4e169e884d79d5245b69a0339ded45fc0352f941.tar
drakx-4e169e884d79d5245b69a0339ded45fc0352f941.tar.gz
drakx-4e169e884d79d5245b69a0339ded45fc0352f941.tar.bz2
drakx-4e169e884d79d5245b69a0339ded45fc0352f941.tar.xz
drakx-4e169e884d79d5245b69a0339ded45fc0352f941.zip
(unselectAllPackages) only log about unselecting packages if "no_suggest" option is set
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/pkgs.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index fa24840f2..e4caaeb0d 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -332,10 +332,12 @@ sub unselectAllPackages {
my %keep_selected;
log::l("unselecting all packages...");
foreach (@{$packages->{depslist}}) {
- log::l("will unselect suggested " . $_->name) if member($_->id, @suggested_package_ids);
my $to_select = $_->flag_base || $_->flag_installed && $_->flag_selected;
# unselect suggested packages if minimal install:
- undef $to_select if $::o->{no_suggests} && member($_->id, @suggested_package_ids);
+ if ($::o->{no_suggests} && member($_->id, @suggested_package_ids)) {
+ log::l("unselecting suggested package " . $_->name);
+ undef $to_select;
+ }
if ($to_select) {
#- keep track of packages that should be kept selected.
$keep_selected{$_->id} = $_;