From 6b0e86171147dc1ffde0d32efa9321f7908f4e41 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 14 Feb 2008 18:49:44 +0000
Subject: [PATCH] Removed absolute path when invoking lpar_netboot.expect -
 Line #161

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

diff --git a/perl-xCAT-2.0/xCAT/PPCmac.pm b/perl-xCAT-2.0/xCAT/PPCmac.pm
index 4a008804e..fd63ef258 100644
--- a/perl-xCAT-2.0/xCAT/PPCmac.pm
+++ b/perl-xCAT-2.0/xCAT/PPCmac.pm
@@ -147,7 +147,7 @@ sub ivm_getmacs {
     my $ssh     = @$exp[0];
     my $userid  = @$exp[4];
     my $pw      = @$exp[5];
-    my $cmd     = "/opt/xcat/sbin/lpar_netboot.expect";
+    my $cmd;
     my $result;
 
     #######################################
@@ -155,6 +155,12 @@ sub ivm_getmacs {
     #######################################
     xCAT::PPCcli::disconnect( $exp );
 
+    #######################################
+    # Find Expect script 
+    #######################################
+    $cmd = ($::XCATROOT) ? "$::XCATROOT/sbin/" : "/opt/xcat/sbin/";
+    $cmd .= "lpar_netboot.expect"; 
+
     #######################################
     # Check command installed 
     #######################################
@@ -311,3 +317,4 @@ sub getmacs {
 
 1;
 
+