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 (file)
--- 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);
     }