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

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

diff --git a/perl-xCAT-2.0/xCAT/PPCmac.pm b/perl-xCAT-2.0/xCAT/PPCmac.pm
index 182beb856..429f4d30c 100644
--- a/perl-xCAT-2.0/xCAT/PPCmac.pm
+++ b/perl-xCAT-2.0/xCAT/PPCmac.pm
@@ -223,6 +223,10 @@ sub ivm_getmacs {
     if ( -r $fname ) {
         unlink( $fname );
     }
+    #######################################
+    # Get command exit code
+    #######################################
+    my $Rc = ( $? ) ? $? >> 8 : SUCCESS;
     return( [SUCCESS,$result] );
 }