summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-22 02:57:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-22 02:57:06 +0000
commit5b30e65108ae6fd3c7782702f761069282109114 (patch)
treed9234924d8783808c30bc8d7526c340ea7a6e26e /perl-install
parentebf02b59da8d58744166071a18f253c9a0d34e25 (diff)
downloaddrakx-backup-do-not-use-5b30e65108ae6fd3c7782702f761069282109114.tar
drakx-backup-do-not-use-5b30e65108ae6fd3c7782702f761069282109114.tar.gz
drakx-backup-do-not-use-5b30e65108ae6fd3c7782702f761069282109114.tar.bz2
drakx-backup-do-not-use-5b30e65108ae6fd3c7782702f761069282109114.tar.xz
drakx-backup-do-not-use-5b30e65108ae6fd3c7782702f761069282109114.zip
cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 58731e0a3..77fa5c388 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -855,13 +855,13 @@ sub suggest_mount_point {
my ($e) = @_;
my $name = $e->{media_type};
- if (member($name, 'hd', 'fd')) {
+ if (member($e->{media_type}, 'hd', 'fd')) {
if (exists $e->{usb_driver}) {
return usb2removable($e) || 'removable';
}
if (isZipDrive($e)) {
$name = 'zip';
- } elsif ($name eq 'fd') {
+ } elsif ($e->{media_type} eq 'fd') {
$name = 'floppy';
} else {
log::l("suggest_mount_point: don't know what to with hd $e->{device}");