summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-19 05:00:38 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-01-02 14:57:52 +0100
commit52a339833b6189e59572ead48cf151ac655ffb21 (patch)
treebefe3645812505930e1bb35dc0d7a34bd3ca2d82 /perl-install
parent3292faca5e819f87e054580ef0e707af2062f8fd (diff)
downloaddrakx-52a339833b6189e59572ead48cf151ac655ffb21.tar
drakx-52a339833b6189e59572ead48cf151ac655ffb21.tar.gz
drakx-52a339833b6189e59572ead48cf151ac655ffb21.tar.bz2
drakx-52a339833b6189e59572ead48cf151ac655ffb21.tar.xz
drakx-52a339833b6189e59572ead48cf151ac655ffb21.zip
handle case where mntpnt has spaces
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lvm.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index f48f2970e..ffdba0b3e 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -226,6 +226,7 @@ sub suggest_lv_name_from_mnt_point {
$str = "root" if $str eq '/';
$str =~ s!^/!!;
$str =~ s!/!_!g;
+ $str =~ s! !_!g;
'lv_' . $str;
}