-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
2010-05-19 14:05:00 +00:00 · 2010-05-19 14:05:00 +00:00 · 6ef8943a3f
commit 6ef8943a3f
parent ddbd989fcf
1 changed files with 2 additions and 1 deletions
--- 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