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, 2 insertions, 0 deletions

diff --git a/perlapi.h b/perlapi.h
index 0f56a0af7e..3686e6b189 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -934,6 +934,8 @@ END_EXTERN_C
 #define PL_do_undump		(*Perl_Gdo_undump_ptr(NULL))
 #undef  PL_dollarzero_mutex
 #define PL_dollarzero_mutex	(*Perl_Gdollarzero_mutex_ptr(NULL))
+#undef  PL_earlytaint
+#define PL_earlytaint		(*Perl_Gearlytaint_ptr(NULL))
 #undef  PL_hexdigit
 #define PL_hexdigit		(*Perl_Ghexdigit_ptr(NULL))
 #undef  PL_malloc_mutex