From 52a339833b6189e59572ead48cf151ac655ffb21 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 May 2015 05:00:38 -0400
Subject: handle case where mntpnt has spaces

---
 perl-install/lvm.pm | 1 +
 1 file changed, 1 insertion(+)

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;
 }
 
-- 
cgit v1.2.1