Change 19859 by [EMAIL PROTECTED] on 2003/06/27 04:59:23
Hash/Util.t and Encode/t/Aliases.t seem to be having
random failures. To make these easier to reproduce,
add a variable, PERL_HASH_SEED_DEBUG, to display the
hash seed. E.g. in Debian/x86 Linux 3.0 PERL_HASH_SEED
of 82972356 makes the first one to fail.
Affected files ...
... //depot/perl/perl.c#488 edit
... //depot/perl/pod/perlrun.pod#95 edit
Differences ...
==== //depot/perl/perl.c#488 (text) ====
Index: perl/perl.c
--- perl/perl.c#487~19854~ Wed Jun 25 22:32:02 2003
+++ perl/perl.c Thu Jun 26 21:59:23 2003
@@ -299,6 +299,9 @@
#endif /* RANDBITS < (UVSIZE * 8) */
}
#endif /* USE_HASH_SEED_EXPLICIT */
+ if ((s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
+ PerlIO_printf(Perl_debug_log, "HASH_SEED = %"UVuf"\n",
+ PL_hash_seed);
}
#endif /* #if defined(USE_HASH_SEED) || defined(USE_HASH_SEED_EXPLICIT) */
==== //depot/perl/pod/perlrun.pod#95 (text) ====
Index: perl/pod/perlrun.pod
--- perl/pod/perlrun.pod#94~19854~ Wed Jun 25 22:32:02 2003
+++ perl/pod/perlrun.pod Thu Jun 26 21:59:23 2003
@@ -1126,6 +1126,10 @@
See L<perlsec/"Algorithmic Complexity Attacks"> for more information.
+=item PERL_HASH_SEED_DEBUG
+
+Set to (anything) to display the value of the hash seed.
+
=item PERL_ROOT (specific to the VMS port)
A translation concealed rooted logical name that contains perl and the
End of Patch.
