Use the PL_earlytaint. (PL_earlytaint is a global,

not per-interp, since perl_construct() is not passed
the argc, argv, and therefore it can't set the per-interp
PL_tainting.)

p4raw-id: //depot/perl@19864

1 files changed, 2 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index f40aaa56e5..badb216fec 100644
--- a/perl.c
+++ b/perl.c
@@ -279,7 +279,7 @@ perl_construct(pTHXx)
     {
        char *s = NULL;
 
-       if (!PL_tainting)
+       if (!PL_earlytaint)
 	   s = PerlEnv_getenv("PERL_HASH_SEED");
        if (s)
            while (isSPACE(*s)) s++;
@@ -301,7 +301,7 @@ perl_construct(pTHXx)
 #endif /* RANDBITS < (UVSIZE * 8) */
        }
 #endif /* USE_HASH_SEED_EXPLICIT */
-       if (!PL_tainting && (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
+       if (!PL_earlytaint && (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
 	   PerlIO_printf(Perl_debug_log, "HASH_SEED = %"UVuf"\n",
 			 PL_hash_seed);
     }