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, 1 insertions, 1 deletions

diff --git a/perl.h b/perl.h
index 492bd832cb..ea55630132 100644
--- a/perl.h
+++ b/perl.h
@@ -499,7 +499,7 @@ int usleep(unsigned int);
 		  panic_write2("panic: tainting with $ENV{PERL_MALLOC_OPT}\n");\
 		  exit(1); })
 #  define MALLOC_CHECK_TAINT(argc,argv,env)	STMT_START {	\
-	if (Perl_doing_taint(argc,argv,env)) {			\
+	if (PL_earlytaint)) {					\
 		MallocCfg_ptr[MallocCfg_skip_cfg_env] = 1;	\
     }} STMT_END;
 #else  /* MYMALLOC */