From 5383a88a608407257053fc9229342e8b037e6daa Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 20 Jun 2012 18:06:30 +0000
Subject: [PATCH] Fix problem where ula generation failed to deal properly with
 hexadecimal

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

diff --git a/xCAT-server/lib/perl/xCAT/Template.pm b/xCAT-server/lib/perl/xCAT/Template.pm
index b4a4d0500..17e13e5f1 100644
--- a/xCAT-server/lib/perl/xCAT/Template.pm
+++ b/xCAT-server/lib/perl/xCAT/Template.pm
@@ -216,13 +216,13 @@ sub autoulaaddress {
       my $prefix = $::XCATSITEVALS{autoulaprefix};
       $suffix =~ /(..):(..:..):(..:..):(..)/;
       my $leadbyte = $1;
-      my $mask = (($leadbyte & 2) ^ 2);
+      my $mask = ((hex($leadbyte) & 2) ^ 2);
       if ($mask) {
-        $leadbyte = $leadbyte | $mask;
+        $leadbyte = hex($leadbyte) | $mask;
       } else {
-        $leadbyte = $leadbyte & 0xfd; #mask out the one bit
+        $leadbyte = hex($leadbyte) & 0xfd; #mask out the one bit
       }
-      $suffix = "$leadbyte$2ff:fe$3$4";
+      $suffix = sprintf("%02x$2ff:fe$3$4",$leadbyte);
 
       return $prefix.$suffix;
 }