summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-28 17:43:10 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-28 17:43:10 +0000
commit7a9d795053d1bab93c5cca346234d47d1b2b6932 (patch)
treea73600698c163e646ff67523ef6d15fd703fb633 /perl-install/install_steps.pm
parent32062c9b0dbd838d6e10332d56d59d6db25147b4 (diff)
downloaddrakx-7a9d795053d1bab93c5cca346234d47d1b2b6932.tar
drakx-7a9d795053d1bab93c5cca346234d47d1b2b6932.tar.gz
drakx-7a9d795053d1bab93c5cca346234d47d1b2b6932.tar.bz2
drakx-7a9d795053d1bab93c5cca346234d47d1b2b6932.tar.xz
drakx-7a9d795053d1bab93c5cca346234d47d1b2b6932.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm18
1 files changed, 17 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index a7720e692..38523e20f 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -221,7 +221,23 @@ sub addUser($) {
}
sub createBootdisk($) {
- lilo::mkbootdisk($o->{prefix}, versionString()) if $o->default("mkbootdisk") && !$::testing;
+ my $dev = $o->default("mkbootdisk") or return;
+
+ my @l = detect_devices::floppies();
+
+ $dev = shift @l if $dev eq "1"; # special case to specify autochoose
+
+ return if $::testing;
+
+
+ unshift @l, $
+
+ $o->{mkbootdisk} = shift @l || die _("no floppy available") if $o->{mkbootdisk} eq "1";
+
+ eval {
+ lilo::mkbootdisk($o->{prefix}, versionString(), "/dev/" . $o->{mkbootdisk})
+ };
+ $o->{mkbootdisk} = 1;
}
sub setupBootloader($) {