From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 29 Jun 2003 13:17:09 +0000 (+0000)
Subject: Perl_doing_taint must be public, for programs that embed perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d20fa10417f31b8f4d60b68adce91b91f9d3cd62;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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