summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-03 21:01:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-03 21:01:20 +0000
commitded2e3634359abc227f6bf9c378729dfb2ca09f1 (patch)
tree8aad44fc5d6e68d618be69fbb6a6b412336d7647 /perl-install/any.pm
parent88d33875b772a7ade8f61658233f04b7c4bb43c8 (diff)
downloaddrakx-ded2e3634359abc227f6bf9c378729dfb2ca09f1.tar
drakx-ded2e3634359abc227f6bf9c378729dfb2ca09f1.tar.gz
drakx-ded2e3634359abc227f6bf9c378729dfb2ca09f1.tar.bz2
drakx-ded2e3634359abc227f6bf9c378729dfb2ca09f1.tar.xz
drakx-ded2e3634359abc227f6bf9c378729dfb2ca09f1.zip
no_comment
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 61ad2d7ec..34c7e1720 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -69,9 +69,11 @@ sub setupBootloader {
} elsif ($more || !$::beginner) {
$in->set_help("setupBootloaderGeneral") unless $::isStandalone;
- my @m = keys %{$b->{methods}};
- $::expert and $in->ask_many_from_list_ref('', _("Which bootloader(s) do you want to use?"),
- [ @m ], [ map { \$b->{methods}{$_} } @m ]) || return;
+ if ($::expert) {
+ my $m = $in->ask_from_list_('', _("Which bootloader(s) do you want to use?"), [ keys(%{$b->{methods}}), __("None") ]) or return;
+ $b->{methods}{$_} = 0 foreach keys %{$b->{methods}};
+ $b->{methods}{$m} = 1 if $m ne "None";
+ }
#- at least one method
grep_each { $::b } %{$b->{methods}} or return;