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.

p4raw-id: //depot/perl@19859

diff --git a/perl.c b/perl.c
index 6b59701..f8c1153 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -299,6 +299,9 @@ perl_construct(pTHXx)
 #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) */
 

diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 0a02df1..324bd8c 100644 (file)
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -1126,6 +1126,10 @@ the outputs of keys(), values, and each().
 
 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