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 (file)
--- 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