From af5226b8b458b582ce2d2cf0c11e39941b3e7b4e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 5 Mar 2001 11:34:22 +0000
Subject: (lv_create): fix typo

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

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index c2b15e613..d04d7aeee 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -90,7 +90,7 @@ sub lv_delete {
 sub lv_create {
     my ($lvm, $lv) = @_;
     my $list = $lvm->{primary}{normal};
-    my $nb = 1 + max(map { basename($_) } @$list);
+    my $nb = 1 + max(map { basename($_->{device}) } @$list);
     $lv->{device} = "/dev/$lvm->{LVMname}/$nb";
     run_program::run_or_die('lvcreate', '--size', int($lv->{size} / 2) . 'k', '-n', $nb, $lvm->{LVMname});
     push @$list, $lv;
-- 
cgit v1.2.1