Perl_doing_taint must be public, for programs that embed perl

p4raw-id: //depot/perl@19882

diff --git a/embed.fnc b/embed.fnc
index 2aa04ac..b8b3252 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -45,7 +45,7 @@ Anod  |void   |perl_free      |PerlInterpreter* interp
 Anod   |int    |perl_run       |PerlInterpreter* interp
 Anod   |int    |perl_parse     |PerlInterpreter* interp|XSINIT_t xsinit \
                                |int argc|char** argv|char** env
-np     |bool   |doing_taint    |int argc|char** argv|char** env
+Anp    |bool   |doing_taint    |int argc|char** argv|char** env
 #if defined(USE_ITHREADS)
 Anod   |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
 #  if defined(PERL_IMPLICIT_SYS)

diff --git a/embed.h b/embed.h
index c7dd564..e872a31 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -29,9 +29,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
-#ifdef PERL_CORE
 #define doing_taint            Perl_doing_taint
-#endif
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
@@ -2539,9 +2537,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
-#ifdef PERL_CORE
 #define doing_taint            Perl_doing_taint
-#endif
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif

diff --git a/global.sym b/global.sym
index dca3810..1ac204b 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -21,6 +21,7 @@ perl_destruct
 perl_free
 perl_run
 perl_parse
+Perl_doing_taint
 perl_clone
 perl_clone_using
 Perl_malloc