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);