summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-14 09:25:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-14 09:25:40 +0000
commite2cbffc6422fc59ee624c2c399e79109c21c7cc4 (patch)
tree8bc16a2c6a23da765f7bd7ca08b5ad5dc676b6c5 /perl-install/detect_devices.pm
parent9266168309a593e84c47cc59edb2a6ccd49e4686 (diff)
downloaddrakx-e2cbffc6422fc59ee624c2c399e79109c21c7cc4.tar
drakx-e2cbffc6422fc59ee624c2c399e79109c21c7cc4.tar.gz
drakx-e2cbffc6422fc59ee624c2c399e79109c21c7cc4.tar.bz2
drakx-e2cbffc6422fc59ee624c2c399e79109c21c7cc4.tar.xz
drakx-e2cbffc6422fc59ee624c2c399e79109c21c7cc4.zip
no_comment
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm5
1 files changed, 3 insertions, 2 deletions
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.