diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:15:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:15:23 +0000 |
| commit | 16086051be220686bdbfcd84683c8399f345d235 (patch) | |
| tree | 4b53bda0fc3a441504fb87122f9c5e56efca0df7 /util.c | |
| parent | 34b7f12884b1a3cb8840062cfc8bc7369e131701 (diff) | |
| download | perl-16086051be220686bdbfcd84683c8399f345d235.tar.gz | |
Superparanoia.
p4raw-id: //depot/perl@21085
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |