From ed52e4f09e2822abb261b4c360979ce7c38fe348 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Sep 2007 14:53:42 +0000 Subject: - create lvm::add_to_VG() out of diskdrake::interactive::Add2LVM() - lvm::check() now takes a $do_pkgs - help pvcreate (it may fail if it finds previous metadata on the MBR) --- perl-install/diskdrake/interactive.pm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'perl-install/diskdrake') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index a23dcbe0c..2c306efae 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -872,13 +872,8 @@ sub Add2LVM { push @$lvms, $lvm; } raid::make($all_hds->{raids}, $part) if isRAID($part); - $part->{lvm} = $lvm->{VG_name}; - push @{$lvm->{disks}}, $part; - delete $part->{mntpoint}; - - lvm::check($in) if $::isStandalone; - lvm::vg_add($part); - lvm::update_size($lvm); + lvm::check($in->do_pkgs) if $::isStandalone; + lvm::add_to_VG($lvm, $part); } sub Unmount { my ($_in, $_hd, $part) = @_; -- cgit v1.2.1