Owen wrote:
>
> 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;
It must have been moved there for version 5.8 because it is not there in
5.6.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
