diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 8 |
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 }, |