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; +