From b6032f8fbc9f3303ee04d6469fe97acb5af2a328 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 17 Feb 2012 05:36:13 +0000
Subject: [PATCH] minor fix

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

diff --git a/perl-xCAT/xCAT/PPCboot.pm b/perl-xCAT/xCAT/PPCboot.pm
index 638628a02..61bb55a9c 100644
--- a/perl-xCAT/xCAT/PPCboot.pm
+++ b/perl-xCAT/xCAT/PPCboot.pm
@@ -325,7 +325,8 @@ sub do_rnetboot {
             #######################################
             # Invoke the lpar_netbootexp
             #######################################
-            $Rc = xCAT::LparNetbootExp->lparnetbootexp(\%optarg, $request);
+            $result = xCAT::LparNetbootExp->lparnetbootexp(\%optarg, $request);
+            $Rc = @$result[0];
             if ( $Rc == SUCCESS ) {
                 $done = 2;
             } else {
@@ -337,7 +338,7 @@ sub do_rnetboot {
             last;
         }
     }
-    return( [$Rc,$result] );
+    return  $result;
 }