From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 5 Jul 2003 09:09:44 +0000 (+0000)
Subject: Allow $ENV{PERL_HASH_SEED_DEBUG} to work even under taint;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd833d03cdf984f3a5a7ad47c7e7b2072b5e5c76;p=p5sagit%2Fp5-mst-13.2.git

Allow $ENV{PERL_HASH_SEED_DEBUG} to work even under taint;
since CGI scripts are (should be) run under -T, being able
to show the HASH_SEED in case of problems is good.
The $ENV{PERL_HASH_SEED} is still ignored under taint.

p4raw-id: //depot/perl@20007
---

diff --git a/perl.c b/perl.c
index abff27c..6000f1c 100644
--- a/perl.c
+++ b/perl.c
@@ -926,7 +926,7 @@ setuid perl scripts securely.\n");
 #endif /* RANDBITS < (UVSIZE * 8) */
        }
 #endif /* USE_HASH_SEED_EXPLICIT */
-       if (!earlytaint && (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
+       if (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG"))
 	   PerlIO_printf(Perl_debug_log, "HASH_SEED = %"UVuf"\n",
 			 PL_hash_seed);
     }