summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-01 16:42:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-01 16:42:21 +0000
commitbbd22e10555ec3af094c32287341c1f61633cebf (patch)
treeaa3184c645bb29d38a5e2e1f6f6f09e15e6a63bf /perl-install
parent4026ee6b73851ac1dc2c9a77c85f6c3138456c5b (diff)
downloaddrakx-backup-do-not-use-bbd22e10555ec3af094c32287341c1f61633cebf.tar
drakx-backup-do-not-use-bbd22e10555ec3af094c32287341c1f61633cebf.tar.gz
drakx-backup-do-not-use-bbd22e10555ec3af094c32287341c1f61633cebf.tar.bz2
drakx-backup-do-not-use-bbd22e10555ec3af094c32287341c1f61633cebf.tar.xz
drakx-backup-do-not-use-bbd22e10555ec3af094c32287341c1f61633cebf.zip
(raw_hd_mount_point): nicer default mount point
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index e4cf415ed..545d925fd 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -54,7 +54,9 @@ sub raw_hd_options {
}
sub raw_hd_mount_point {
my ($in, $raw_hd) = @_;
- diskdrake::interactive::Mount_point_raw_hd($in, $raw_hd, $all_hds, [ "/mnt/" . lc(($raw_hd->{device} =~ /(\w+)$/)[0]) ]);
+ my ($default) = $raw_hd->{device} =~ m|([^/]+)$|;
+ $default =~ s/\s+/-/g;
+ diskdrake::interactive::Mount_point_raw_hd($in, $raw_hd, $all_hds, [ "/mnt/$default" ]);
}
sub per_entry_info_box {