summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm16
-rw-r--r--perl-install/fs.pm19
2 files changed, 20 insertions, 15 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;
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index d1d6887d7..f50418ede 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -503,21 +503,10 @@ sub set_removable_mntpoints {
my %names;
foreach (@{$all_hds->{raw_hds}}) {
- my $name = $_->{media_type};
- if (member($name, 'hd', 'fd')) {
- if (detect_devices::isZipDrive($_)) {
- $name = 'zip';
- } elsif ($name eq 'fd') {
- $name = 'floppy';
- } else {
- log::l("set_removable_mntpoints: don't know what to with hd $_->{device}");
- next;
- }
- }
- if ($name) {
- my $s = ++$names{$name};
- $_->{mntpoint} ||= "/mnt/$name" . ($s == 1 ? '' : $s);
- }
+ my $name = detect_devices::suggest_mount_point($_) or next;
+
+ my $s = ++$names{$name};
+ $_->{mntpoint} ||= "/mnt/$name" . ($s == 1 ? '' : $s);
}
}