diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index e8b728b6e..8c647bdb3 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -681,4 +681,20 @@ sub is_a_recent_computer { $frequence > 600; } +sub suggest_mount_point { + my ($e) = @_; + + my $name = $e->{media_type}; + if (member($name, 'hd', 'fd')) { + if (isZipDrive($e)) { + $name = 'zip'; + } elsif ($name eq 'fd') { + $name = 'floppy'; + } else { + log::l("set_removable_mntpoints: don't know what to with hd $e->{device}"); + } + } + $name; +} + 1; |