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
This commit is contained in:
jbjohnso 2011-06-23 13:58:40 +00:00
parent ad93e349d9
commit d56a999b4a

View File

@ -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->{$_});