From 739d2dead3c6afd511fa478df666c84739d6930b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 18 Dec 2002 15:12:01 +0000
Subject: add "new" to lvm.pm, and use it

---
 perl-install/diskdrake/interactive.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f588061f2..e3055ca2a 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -770,12 +770,11 @@ sub Add2LVM {
     my $lvm = $in->ask_from_listf_('', N("Choose an existing LVM to add to"),
 				  sub { ref $_[0] ? $_[0]{VG_name} : $_[0] },
 				  [ @$lvms, N_("new") ]) or return;
+    require lvm;
     if (!ref $lvm) {
 	# create new lvm
 	my $name = $in->ask_from_entry('', N("LVM name?")) or return;
-	$name =~ s/\W/_/g;
-	$name = substr($name, 0, 63); # max length must be < NAME_LEN / 2  where NAME_LEN is 128
-	$lvm = bless { disks => [], VG_name => $name }, 'lvm';
+	$lvm = new lvm($name);
 	push @$lvms, $lvm;
     }
     raid::make($all_hds->{raids}, $part) if isRAID($part);
@@ -783,7 +782,6 @@ sub Add2LVM {
     push @{$lvm->{disks}}, $part;
     delete $part->{mntpoint};
 
-    require lvm;
     lvm::check($in) if $::isStandalone;
     lvm::vg_add($part);
     lvm::update_size($lvm);
-- 
cgit v1.2.1