From 91a712b86359c5b72bab878ec38f26dd23c64609 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 6 May 2010 09:09:17 +0000
Subject: [PATCH] ipv6 support: linklocaladdr

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

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 9de2d1386..351156f6f 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -5886,7 +5886,7 @@ sub getipaddr()
 
 #-------------------------------------------------------------------------------
 sub linklocaladdr {
-    my $mac = shift;
+    my ($class, $mac) = @_;
     $mac = lc($mac);
     my $localprefix = "fe80";