From 6ef8943a3f3baccad1296af8259444ad87f3ec78 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 19 May 2010 14:05:00 +0000
Subject: [PATCH] -Avoid too-new bmuladd function

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

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 68a18f873..dd2bf97d6 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -76,7 +76,8 @@ sub genUUID
         my $usec;
         ($sec,$usec) = gettimeofday();
         my $uuidtime = Math::BigInt->new($sec);
-        $uuidtime->bmuladd('10000000',$usec*10);
+        $uuidtime->bmul('10000000');
+        $uuidtime->badd($usec*10);
         $uuidtime->badd('0x01B21DD213814000');
         my $timelow=$uuidtime->copy();
         $timelow->band('0xffffffff');# get lower 32bit