This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_doing_taint must be public, for programs that embed perl
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 29 Jun 2003 13:17:09 +0000 (13:17 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 29 Jun 2003 13:17:09 +0000 (13:17 +0000)
p4raw-id: //depot/perl@19882

embed.fnc
embed.h
global.sym

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
 
 #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
index dca3810..1ac204b 100644 (file)
@@ -21,6 +21,7 @@ perl_destruct
 perl_free
 perl_run
 perl_parse
+Perl_doing_taint
 perl_clone
 perl_clone_using
 Perl_malloc