From 5bc140071103377ef9f1d8a84834403c2b56f1a7 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 3 Mar 2008 19:52:09 +0000
Subject: [PATCH] Get exit code from lpar_netboot.expect for IVM - Line #220

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

diff --git a/perl-xCAT-2.0/xCAT/PPCboot.pm b/perl-xCAT-2.0/xCAT/PPCboot.pm
index 1b8a5ddaa..be3ff7d13 100644
--- a/perl-xCAT-2.0/xCAT/PPCboot.pm
+++ b/perl-xCAT-2.0/xCAT/PPCboot.pm
@@ -214,6 +214,10 @@ sub ivm_rnetboot {
     if ( -r $fname ) {
         unlink( $fname );
     }
+    #######################################
+    # Get command exit code
+    #######################################
+    my $Rc = ( $? ) ? $? >> 8 : SUCCESS;
     return( [SUCCESS,$result] );
 }