From d60b6b955a9e0d9dbd3bdb5c1d4f8429069456d7 Mon Sep 17 00:00:00 2001
From: xq2005 <xq2005@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 30 Nov 2012 09:06:20 +0000
Subject: [PATCH]  defined(%hash) and defined(@array) are deprecated

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14497 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index 34efa20a2..7921ffeb0 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -785,7 +785,7 @@ sub preprocess_nodes {
     ##########################################
     if ( $request->{command} eq "rnetboot"  || $request->{command} eq "rbootseq"  ) { 
         $netwk = resolve_netwk( $request, $noderange );
-        if ( !defined( %$netwk )) {
+        if ( !( %$netwk )) {
             return undef;
         }
     }
@@ -1421,7 +1421,7 @@ sub handle_find_hw_children {
         return undef;
     }
     my @nodearray = $vpdtab->getAttribs({serial=>$mtms->{serial}, mtm=>$mtms->{mtm}}, qw(node side)); # need regx
-    if (!defined(@nodearray)) {
+    if (!(@nodearray)) {
         return undef;
     }
     my @tempnodes;