diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index fcfe8cc5a..2e2abff44 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,6 @@ +- package group selection: + o remember minimal install values when clicking "previous" + Version 14.22 - 15 May 2012 - final banner diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index c40e3ffd6..2ead20c9c 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -2,6 +2,7 @@ package install::steps_interactive; # $Id: steps_interactive.pm 267011 2010-03-1 use strict; +use feature 'state'; our @ISA = qw(install::steps); @@ -580,8 +581,8 @@ sub chooseGroups { #- if no group have been chosen, ask for using base system only, or no X, or normal. if (!$o->{isUpgrade} && !any { $_->{selected} } @$compssUsers) { my $docs = !$o->{excludedocs}; - my $minimal; - my $suggests; + state $minimal; + my $suggests = $o->{no_suggests}; $o->ask_from_({ title => N("Type of install"), message => N("You have not selected any group of packages. |