From 3d8a45475d431591b9804457dc1a852332bbd0e2 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 2 Oct 2009 18:04:43 +0000
Subject: [PATCH] -Move rng seeding

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

diff --git a/perl-xCAT/xCAT/VMCommon.pm b/perl-xCAT/xCAT/VMCommon.pm
index c29c6e402..afc4367a5 100644
--- a/perl-xCAT/xCAT/VMCommon.pm
+++ b/perl-xCAT/xCAT/VMCommon.pm
@@ -55,6 +55,7 @@ sub getMacAddresses {
         $updatesneeded = 1;
     }
 
+    srand(); #Re-seed the rng.  This will make the mac address generation less deterministic
     while ($count > 0) { #still need more, autogen
         $macaddr = "";
         while (not $macaddr) {
@@ -85,7 +86,6 @@ sub getMacAddresses {
 sub genMac { #Generates a mac address for a node, does NOT assure uniqueness, calling code needs to do that
     my $node=shift;
     my $prefix = shift;
-    srand(); #Re-seed the rng.  I haven't been able to reproduce it, but duplicate macs were somehow making it
     if ($prefix) { #Specific prefix requested, honor it
         my $tail = int(rand(0xffffff)); #With only 24 bits of space, use random bits;
         $tail = sprintf("%06x",$tail);