diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-01 16:42:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-01 16:42:21 +0000 |
| commit | bbd22e10555ec3af094c32287341c1f61633cebf (patch) | |
| tree | aa3184c645bb29d38a5e2e1f6f6f09e15e6a63bf /perl-install | |
| parent | 4026ee6b73851ac1dc2c9a77c85f6c3138456c5b (diff) | |
| download | drakx-bbd22e10555ec3af094c32287341c1f61633cebf.tar drakx-bbd22e10555ec3af094c32287341c1f61633cebf.tar.gz drakx-bbd22e10555ec3af094c32287341c1f61633cebf.tar.bz2 drakx-bbd22e10555ec3af094c32287341c1f61633cebf.tar.xz drakx-bbd22e10555ec3af094c32287341c1f61633cebf.zip | |
(raw_hd_mount_point): nicer default mount point
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/smbnfs_gtk.pm | 4 |
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 { |