Introduce (global) variable PL_earlytaint which

is set very early in main(), before perl_parse()
has been called and PL_tainting (or PL_taint_warn)
might have been set.

p4raw-id: //depot/perl@19863

1 files changed, 1 insertions, 2 deletions

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