>       $self->{_initted} = $$;
>       srand;
>       $self->{resolver}->reinit_post_fork();

In the C/C++ world, srand has a parameter.  I suspect the C srand() function
underlys perl's srand statement.  Depending on the value of the parameter
that Perl is deducing from that statement, you may or may not be getting the
results you expect.

srand() C documentation includes:

The srand function sets the starting point for generating a series of
pseudorandom integers. To reinitialize the generator, use 1 as the seed
argument. Any other value for seed sets the generator to a random starting
point. rand retrieves the pseudorandom numbers that are generated. Calling
rand before any call to srand generates the same sequence as calling srand
with seed passed as 1.

        Loren



Reply via email to