diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-18 23:08:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-18 23:08:50 +0000 |
| commit | 262903f3d6dc8c5b245ba4931a0f3cf55c6f915b (patch) | |
| tree | 0f188cbc5f370ae2ac580d675de733c9e449822a /perl-install/any.pm | |
| parent | 10f1c2d98ebcf41baaf8d7bc3963e2ce40014404 (diff) | |
| download | drakx-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.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 }, |