summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-21 10:44:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-21 10:44:04 +0000
commita901b76faa10b814145b8fffd27d27cf5c6f7439 (patch)
tree4f5f2c019d9cd4df5858a1637eb88a67e5f64e1f /perl-install
parenta47038859dc156d832fdae38fff319b6585a5694 (diff)
downloaddrakx-a901b76faa10b814145b8fffd27d27cf5c6f7439.tar
drakx-a901b76faa10b814145b8fffd27d27cf5c6f7439.tar.gz
drakx-a901b76faa10b814145b8fffd27d27cf5c6f7439.tar.bz2
drakx-a901b76faa10b814145b8fffd27d27cf5c6f7439.tar.xz
drakx-a901b76faa10b814145b8fffd27d27cf5c6f7439.zip
fix floppies detection (through dmidecode)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 67296c01a..4eb555a8c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -55,7 +55,7 @@ sub floppies() {
my @fds;
my @dmis = dmidecode();
# do not try to load floppy if there's no floppy drive:
- if (!@dmis || find { $_->{'Internal Reference Designator'} eq 'FLOPPY' && $_->{name} eq 'Port Connector' } @dmis) {
+ if (!@dmis || find { $_->{'Internal Reference Designator'} =~ /^(FLOPPY|FDD)$/ && $_->{name} eq 'Port Connector' } @dmis) {
eval { modules::load("floppy") if $::isInstall };
if (!$@) {
@fds = map {