diff options
| -rw-r--r-- | perl-install/bootloader.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 6483c7958..eb0165df9 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -389,6 +389,9 @@ wait %d seconds for default boot. sub suggest_floppy { my ($bootloader) = @_; + my $floppy = detect_devices::floppy() or return; + $floppy eq 'fd0' or log::l("suggest_floppy: not adding $floppy"), return; + add_entry($bootloader->{entries}, { type => 'other', |