From d1ad43b174237d44ca4449d13aaf5ca98d1093ea Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 19 Dec 2007 20:37:52 +0000
Subject: [PATCH] Added support for rnetboot - Line #569

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

diff --git a/perl-xCAT-2.0/xCAT/PPCcli.pm b/perl-xCAT-2.0/xCAT/PPCcli.pm
index e22474b10..1bcb1da8d 100644
--- a/perl-xCAT-2.0/xCAT/PPCcli.pm
+++ b/perl-xCAT-2.0/xCAT/PPCcli.pm
@@ -573,9 +573,9 @@ sub lpar_netboot {
     my $name    = shift;
     my $d       = shift;
     my $opt     = shift;
-    my $mac     = shift;
     my $timeout = 300;
     my $cmd     = "lpar_netboot -t ent -f";
+    my $mac; 
 
     #####################################
     # Verbose output 
@@ -592,7 +592,8 @@ sub lpar_netboot {
     #####################################
     # Get MAC-address or network boot
     #####################################
-    $cmd.= (defined( $mac )) ? " -m $mac" : " -M -n";
+    $mac = $opt->{m};
+    $cmd.= ( defined( $mac )) ? " -m $mac" : " -M -n";
    
     #####################################
     # Command only supported on LPARs