From d56a999b4a4fcd9f12bc9f0ad8bf54c49bfe0666 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 23 Jun 2011 13:58:40 +0000
Subject: [PATCH] Dramatically speed up rmvm for lots of KVM virtual machines

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9915 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/kvm.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/kvm.pm b/xCAT-server/lib/xcat/plugins/kvm.pm
index 1e1047238..9824231c9 100644
--- a/xCAT-server/lib/xcat/plugins/kvm.pm
+++ b/xCAT-server/lib/xcat/plugins/kvm.pm
@@ -2824,9 +2824,11 @@ sub dohyp {
       my $tabhandle = xCAT::Table->new($_,-create=>1);
       my $updates = $updatetable->{$_};
       if ($updates->{'!*XCATNODESTODELETE*!'}) {
+          my @delkeys;
           foreach (keys %{$updates->{'!*XCATNODESTODELETE*!'}}) {
-              if ($_) { $tabhandle->delEntries({node=>$_}); }
+              if ($_) { push @delkeys, {node=>$_}; }
           }
+          if (@delkeys) {  $tabhandle->delEntries(\@delkeys); }
           delete $updates->{'!*XCATNODESTODELETE*!'};
       }
       $tabhandle->setNodesAttribs($updatetable->{$_});