From 119e611ca6c8fa265f991246562b2737644c0dec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Mar 2005 16:58:17 +0000
Subject: remove the lvm if lvm::vg_destroy() succeeds (bugzilla #14249)

---
 perl-install/diskdrake/interactive.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index bead96915..e4b01a88f 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -876,8 +876,9 @@ sub RemoveFromRAID {
 sub RemoveFromLVM {
     my ($_in, $_hd, $part, $all_hds) = @_;
     isPartOfLVM($part) or die;
-    (my $lvm, $all_hds->{lvms}) = partition { $_->{VG_name} eq $part->{lvm} } @{$all_hds->{lvms}};
+    my ($lvm, $other_lvms) = partition { $_->{VG_name} eq $part->{lvm} } @{$all_hds->{lvms}};
     lvm::vg_destroy($lvm->[0]);
+    $all_hds->{lvms} = $other_lvms;
 }
 sub ModifyRAID { 
     my ($in, $_hd, $part, $all_hds) = @_;
-- 
cgit v1.2.1