From e2cbffc6422fc59ee624c2c399e79109c21c7cc4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Mar 2000 09:25:40 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 484a4dfe8..2be192599 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -50,9 +50,10 @@ sub cdroms() {
     @l;
 }
 sub floppies() {
-    (grep { tryOpen($_) } qw(fd0 fd1)),
-    (grep { $_->{type} eq 'fd' } get());
+    my @ide = map { $_->{device} } grep { $_->{type} eq 'fd' } get() and modules::load("ide-floppy");
+    (grep { tryOpen($_) } qw(fd0 fd1)), @ide;
 }
+#- example ls120, model = "LS-120 SLIM 02 UHD Floppy"
 
 sub isZipDrive() { $_[0]->{info} =~ /ZIP\s+\d+/ } #- accept ZIP 100, untested for bigger ZIP drive.
 #-sub isJazzDrive() { $_[0]->{info} =~ /JAZZ?\s+/ } #- untested.
-- 
cgit v1.2.1