From f04cae4ca3dea07ce237410905c2b2f731686f5e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 1 Jul 2005 06:05:43 +0000
Subject: handle vgreduce

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

(limited to 'perl-install/diskdrake/interactive.pm')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index dfb5c59fb..c98331449 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -885,8 +885,12 @@ sub RemoveFromLVM {
     my ($_in, $_hd, $part, $all_hds) = @_;
     isPartOfLVM($part) or die;
     my ($lvm, $other_lvms) = partition { $_->{VG_name} eq $part->{lvm} } @{$all_hds->{lvms}};
-    lvm::vg_destroy($lvm->[0]);
-    $all_hds->{lvms} = $other_lvms;
+    if (@{$lvm->[0]{disks}} > 1) {
+	lvm::vg_reduce($lvm->[0], $part);
+    } else {
+	lvm::vg_destroy($lvm->[0]);
+	$all_hds->{lvms} = $other_lvms;
+    }
 }
 sub ModifyRAID { 
     my ($in, $_hd, $part, $all_hds) = @_;
-- 
cgit v1.2.1