From fb62b20aca6f56c54d8f3ba97e32f7fd0bcfe3f9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Mar 2001 10:50:43 +0000
Subject: (suggest_floppy): don't add an entry for non-fd0 drives

---
 perl-install/bootloader.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/bootloader.pm')

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',
-- 
cgit v1.2.1