On Sun, 07 Dec 2003 03:29:02 -0800
"John W. Krahn" <[EMAIL PROTECTED]> wrote:
> I did a "grep -i -r 'seed' *.c" and the only hit I got was in pp.c.
FWIW
[EMAIL PROTECTED] perl-5.8.2]# grep -r seed
<snip>
util.c:Perl_seed(pTHX)
util.c: * is enough real entropy to fill the seed. */
util.c:Perl_get_hash_seed(pTHX)
util.c: UV myseed = 0;
util.c: myseed = (UV)Atoul(s);
util.c: /* Compute a random seed */
util.c: (void)seedDrand01((Rand_seed_t)seed());
util.c: myseed = (UV)(Drand01() * (NV)UV_MAX);
util.c: myseed +=
util.c: if (myseed == 0) { /* Superparanoia. */
util.c: myseed = (UV)(Drand01() * (NV)UV_MAX); /* One more chance. */
util.c: if (myseed == 0)
util.c: PL_rehash_seed_set = TRUE;
util.c: return myseed;
<snip>
--
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
