- 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)

1 files changed, 2 insertions, 7 deletions

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) = @_;