diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-04-23 17:28:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-04-23 17:28:17 +0000 |
| commit | 9042e7966ee4228e6d46d067b4341d73519871e5 (patch) | |
| tree | 1b425aa18a7be833a555dcb997655ea1ace6ea35 /perl-install/install/steps_gtk.pm | |
| parent | 9df9cd7d261c5c9c87597825251aa0259cce4e90 (diff) | |
| download | drakx-9042e7966ee4228e6d46d067b4341d73519871e5.tar drakx-9042e7966ee4228e6d46d067b4341d73519871e5.tar.gz drakx-9042e7966ee4228e6d46d067b4341d73519871e5.tar.bz2 drakx-9042e7966ee4228e6d46d067b4341d73519871e5.tar.xz drakx-9042e7966ee4228e6d46d067b4341d73519871e5.zip | |
(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"
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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) { |