From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 8 Sep 2003 12:15:23 +0000 (+0000)
Subject: Superparanoia.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16086051be220686bdbfcd84683c8399f345d235;p=p5sagit%2Fp5-mst-13.2.git

Superparanoia.

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

diff --git a/util.c b/util.c
index 7f38135..39122be 100644
--- a/util.c
+++ b/util.c
@@ -4422,6 +4422,8 @@ Perl_get_hash_seed(pTHX)
 	  myseed +=
 	       (UV)(Drand01() * (NV)((1 << ((UVSIZE * 8 - RANDBITS))) - 1));
 #endif /* RANDBITS < (UVSIZE * 8) */
+	  while (myseed == 0) /* Superparanoia. */
+	      myseed += (UV)(Drand01() * (NV)UV_MAX);
      }
      PL_hash_seed_set = TRUE;