From b1c9c2f7e305d12c9ff5300a14440a70d4793f3c Mon Sep 17 00:00:00 2001
From: XuWei <xwbj@cn.ibm.com>
Date: Wed, 13 Jul 2016 23:19:21 -0400
Subject: [PATCH] Improve performance for hmc mgt

---
 perl-xCAT/xCAT/PPCpower.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCpower.pm b/perl-xCAT/xCAT/PPCpower.pm
index 0ee082f51..817c4738c 100644
--- a/perl-xCAT/xCAT/PPCpower.pm
+++ b/perl-xCAT/xCAT/PPCpower.pm
@@ -237,7 +237,9 @@ sub powercmd_boot {
                             $op,
                             $d );
         unless (@$result[0] != SUCCESS) {
-            $newnodestatus{$newstat}=[$name] if ($newstat);
+            if ($newstat) {
+                push @{ $newnodestatus{$newstat} }, $name;
+            }
         }
         push @output, [$name,@$result[1],@$result[0]];
     }
@@ -364,7 +366,7 @@ sub powercmd {
   
         unless ($Rc != SUCCESS) {
             if ($newstat) {
-                $newnodestatus{$newstat}=[$name];
+                push @{ $newnodestatus{$newstat} }, $name;
             }
         }