diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:43 +0000 |
| commit | 167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7 (patch) | |
| tree | abc9e84b38a2128e99a968869ee5e5d86304731d /perl-install/install/steps_interactive.pm | |
| parent | 873a1a38dd85d33426ea82e1a7c7ce83ad4367b4 (diff) | |
| download | drakx-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/steps_interactive.pm')
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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. |