summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:25:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:25:43 +0000
commit167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7 (patch)
treeabc9e84b38a2128e99a968869ee5e5d86304731d /perl-install/install
parent873a1a38dd85d33426ea82e1a7c7ce83ad4367b4 (diff)
downloaddrakx-167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7.tar
drakx-167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7.tar.gz
drakx-167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7.tar.bz2
drakx-167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7.tar.xz
drakx-167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7.zip
(chooseGroups) remember values when clicking "previous"
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/steps_interactive.pm5
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.