From: Brendan O'Dea <bod@debian.org>
Date: Thu, 2 Oct 2003 10:30:36 +0000 (+1000)
Subject: Re: 5.8.1 and srand
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee97c186303ca07163a2ddfef6ec7d2c708126c6;p=p5sagit%2Fp5-mst-13.2.git

Re: 5.8.1 and srand
Message-Id: <20031002003036.GA9198@londo.c47.org>

p4raw-id: //depot/perl@21397
---

diff --git a/util.c b/util.c
index c750a2e..88b07cb 100644
--- a/util.c
+++ b/util.c
@@ -4412,7 +4412,6 @@ Perl_get_hash_seed(pTHX)
      {
 	  /* Compute a random seed */
 	  (void)seedDrand01((Rand_seed_t)seed());
-	  PL_srand_called = TRUE;
 	  myseed = (UV)(Drand01() * (NV)UV_MAX);
 #if RANDBITS < (UVSIZE * 8)
 	  /* Since there are not enough randbits to to reach all