From 76a126cfad16702092343cc0491773d8db1d1237 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 2 Jun 2008 13:07:23 +0000
Subject: [PATCH] Cleaned up warnings generated from "perl -Wc"

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1544 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCboot.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT-2.0/xCAT/PPCboot.pm b/perl-xCAT-2.0/xCAT/PPCboot.pm
index fe986698c..cb5f145f4 100644
--- a/perl-xCAT-2.0/xCAT/PPCboot.pm
+++ b/perl-xCAT-2.0/xCAT/PPCboot.pm
@@ -259,7 +259,7 @@ sub rnetboot {
                            $d,
                            \%opt );
     }
-    my $Rc = shift(@$result);
+    $Rc = shift(@$result);
 
     ##################################
     # Form string from array results