From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 27 Jun 2003 04:59:23 +0000 (+0000)
Subject: Hash/Util.t and Encode/t/Aliases.t seem to be having
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2191697ea9da49f0c020a5bcb1eb2a2e9d574a4e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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