(suggest_lv_name_from_mnt_point, suggest_lv_name) suggest better LV

names based on the mount point rather than numbers

1 files changed, 10 insertions, 0 deletions

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index a8837c91a..3a2667191 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -169,9 +169,19 @@ sub lv_delete {
     @$list = grep { $_ != $lv } @$list;
 }
 
+sub suggest_lv_name_from_mnt_point {
+    my ($lv) = @_;
+    my $str = $lv->{mntpoint};
+    $str = "root" if $str eq '/';
+    $str =~ s!^/!!;
+    $str =~ s!/!_!g;
+    $str;
+}
+
 sub suggest_lv_name {
     my ($lvm, $lv) = @_;
     my $list = $lvm->{primary}{normal} ||= [];
+    $lv->{lv_name} ||= suggest_lv_name_from_mnt_point($lv);
     $lv->{lv_name} ||= 1 + max(map { if_($_->{device} =~ /(\d+)$/, $1) } @$list);
 }