diff options
| author | Brendan O'Dea <bod@debian.org> | 2003-10-02 20:30:36 +1000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-02 07:48:51 +0000 |
| commit | ee97c186303ca07163a2ddfef6ec7d2c708126c6 (patch) | |
| tree | 372bce7c61eef4bc268d103151fb4e404b59e566 | |
| parent | 70faccd78e90746af0dac8c794d8429d15b6dfbe (diff) | |
| download | perl-ee97c186303ca07163a2ddfef6ec7d2c708126c6.tar.gz | |
Re: 5.8.1 and srand
Message-Id: <20031002003036.GA9198@londo.c47.org>
p4raw-id: //depot/perl@21397
| -rw-r--r-- | util.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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 |