From 23482f3c6be3d61b50198f203e73fea2cb485fa2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Apr 2012 17:28:17 +0000 Subject: (choosePackagesTree) honor "no suggests" option (mga#3467) was not "implemented" for individual package selection when pterjan commited r259864 on Sep 2 2009: "allow minimal install without suggests" --- perl-install/install/NEWS | 1 + perl-install/install/steps_gtk.pm | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 3af26f0ec..f1b0a484e 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,6 +1,7 @@ - do not offer to upgrade mdv 201[1-9] (mga#5004) - individual package selection: o fix a crash + o honor "no suggests" option (mga#3467) Version 14.9 - 23 April 2012 diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 5d4936b67..dcd2cebbf 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -423,6 +423,7 @@ sub choosePackagesTree { my $state = $packages->{state} ||= {}; $packages->{rpmdb} ||= install::pkgs::rpmDbOpen(); #- WORKAROUND my @l = $isSelection ? $packages->resolve_requested($packages->{rpmdb}, $state, \%l, + no_suggests => $::o->{no_suggests}, callback_choices => \&install::pkgs::packageCallbackChoices) : $packages->disable_selected($packages->{rpmdb}, $state, map { $packages->{depslist}[$_] } keys %l); @@ -469,7 +470,8 @@ sub choosePackagesTree { #- disable selection (or unselection). $packages->{rpmdb} ||= install::pkgs::rpmDbOpen(); #- WORKAROUND $isSelection ? $packages->disable_selected($packages->{rpmdb}, $state, @l) : - $packages->resolve_requested($packages->{rpmdb}, $state, { map { $_->id => 1 } @l }); + $packages->resolve_requested($packages->{rpmdb}, $state, { map { $_->id => 1 } @l }, + no_suggests => $::o->{no_suggests}); } else { #- keep the changes, update visible state. foreach (@l) { -- cgit v1.2.1