From 6c4ab4690a21dd960ecae02d22ec985919a798db Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 19 Jul 2004 06:49:56 +0000
Subject: don't bootloader::suggest_floppy

---
 perl-install/bootloader.pm | 15 ---------------
 1 file changed, 15 deletions(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 56da1f487..5bd8ad18a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -751,21 +751,6 @@ sub method_choices {
     } method_choices_raw();
 }
 
-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,
-      {
-       type => 'other',
-       kernel_or_dev => '/dev/fd0',
-       label => 'floppy',
-       unsafe => 1
-      });
-}
-
 sub keytable {
     my ($f) = @_;
     $f or return;
-- 
cgit v1.2.1