diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-28 17:43:10 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-28 17:43:10 +0000 |
| commit | 7a9d795053d1bab93c5cca346234d47d1b2b6932 (patch) | |
| tree | a73600698c163e646ff67523ef6d15fd703fb633 /perl-install/install_steps.pm | |
| parent | 32062c9b0dbd838d6e10332d56d59d6db25147b4 (diff) | |
| download | drakx-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.pm | 18 |
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($) { |