srand(undef) is the same as srand(0). The code is trying to get random
seeds, not a fixed one.
# For randomized tests below.
my $seed;
- $seed = $ENV{PERL_TEST_CHARNAMES_SEED} if
- defined $ENV{PERL_TEST_CHARNAMES_SEED};
- $seed = srand($seed);
+ if (defined $ENV{PERL_TEST_CHARNAMES_SEED}) {
+ $seed = srand($ENV{PERL_TEST_CHARNAMES_SEED});
+ if ($seed != $ENV{PERL_TEST_CHARNAMES_SEED}) {
+ die "srand returned '$seed' instead of '$ENV{PERL_TEST_CHARNAMES_SEED}'";
+ };
+ }
+ else {
+ $seed = srand;
+ }
# We will look at the data grouped in "blocks" of the following
# size.