diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-29 13:17:09 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-29 13:17:09 +0000 |
| commit | d20fa10417f31b8f4d60b68adce91b91f9d3cd62 (patch) | |
| tree | adccae3a88f75019e69925ae2d814b81e35c1cac | |
| parent | c4b2e1b65d11779e63c2d42d6b840c9078181338 (diff) | |
| download | perl-d20fa10417f31b8f4d60b68adce91b91f9d3cd62.tar.gz | |
Perl_doing_taint must be public, for programs that embed perl
p4raw-id: //depot/perl@19882
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | embed.h | 4 | ||||
| -rw-r--r-- | global.sym | 1 |
3 files changed, 2 insertions, 5 deletions
@@ -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) @@ -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 dca38103c7..1ac204be6c 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 |