From c18a38b267cdf53ec8cdd005b3c87b631856860a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Mar 2001 21:37:12 +0000
Subject: (floppies): load module "floppy" before probing

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index a38917d5b..ddcbe5e42 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -56,9 +56,11 @@ sub IDEburners { grep { $_->{type} eq 'cdrom' && isBurner($_->{device}) } getIDE
 
 sub floppies() {
     require modules;
+    eval { modules::load("floppy") };
+    my @fds = grep { tryOpen($_) } qw(fd0 fd1);
     my @ide = map { $_->{device} } ls120s() and modules::load("ide-floppy");
     my @scsi = map { $_->{device} } usbfdus();
-    (@ide, @scsi, grep { tryOpen($_) } qw(fd0 fd1));
+    (@ide, @scsi, @fds);
 }
 sub floppy { first(floppies()) }
 #- example ls120, model = "LS-120 SLIM 02 UHD Floppy"
-- 
cgit v1.2.1