X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=f8c1153c9442aebabf1073ebff775465414195e4;hb=2191697ea9da49f0c020a5bcb1eb2a2e9d574a4e;hp=6b5970119414932297a5b8c16ea603ac615812aa;hpb=ea031e66439c986384865daf3860bb9bb815a8fa;p=p5sagit%2Fp5-mst-13.2.git

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) */