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/lvm.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/lvm.pm')

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index 3563af941..5fb17e791 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -111,6 +111,16 @@ sub vg_add {
     lvm_cmd_or_die($prog, $part->{lvm}, $dev);
 }
 
+sub vg_reduce {
+    my ($lvm_vg, $part_pv) = @_;
+
+    lvm_cmd('vgchange', '-a', 'n', $lvm_vg->{VG_name});
+    lvm_cmd('vgreduce', $lvm_vg->{VG_name}, devices::make($part_pv->{device})) or die N("Physical volume %s is still in use.", $part_pv->{device});
+    @{$lvm_vg->{disks}} = difference2($lvm_vg->{disks}, [ $part_pv ]);
+    delete $part_pv->{lvm};
+    set_isFormatted($part_pv, 0);
+}
+
 sub vg_destroy {
     my ($lvm) = @_;
 
-- 
cgit v1.2.1