summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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}");