summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-18 23:08:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-18 23:08:50 +0000
commit262903f3d6dc8c5b245ba4931a0f3cf55c6f915b (patch)
tree0f188cbc5f370ae2ac580d675de733c9e449822a /perl-install/any.pm
parent10f1c2d98ebcf41baaf8d7bc3963e2ce40014404 (diff)
downloaddrakx-262903f3d6dc8c5b245ba4931a0f3cf55c6f915b.tar
drakx-262903f3d6dc8c5b245ba4931a0f3cf55c6f915b.tar.gz
drakx-262903f3d6dc8c5b245ba4931a0f3cf55c6f915b.tar.bz2
drakx-262903f3d6dc8c5b245ba4931a0f3cf55c6f915b.tar.xz
drakx-262903f3d6dc8c5b245ba4931a0f3cf55c6f915b.zip
no_comment
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index a5dd80f64..bfd8fc9ad 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -7,7 +7,7 @@ use vars qw(@users);
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:common :system :file);
+use common qw(:common :system :file :functional);
use commands;
use detect_devices;
use fsedit;
@@ -69,7 +69,11 @@ sub setupBootloader {
} elsif ($more || !$::beginner) {
$in->set_help("setupBootloaderGeneral") unless $::isStandalone;
- $::expert and $in->ask_yesorno('', _("Do you want to use LILO?"), 1) || return;
+ 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;
+ #- at least one method
+ grep_each { $::b } %{$b->{methods}} or return;
my @l = (
_("Boot device") => { val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } @$hds, @$fstab), detect_devices::floppies() ], not_edit => !$::expert },