Change 19882 by [EMAIL PROTECTED] on 2003/06/29 13:17:09
Perl_doing_taint must be public, for programs that embed perl
Affected files ...
... //depot/perl/embed.fnc#92 edit
... //depot/perl/embed.h#408 edit
... //depot/perl/global.sym#241 edit
Differences ...
==== //depot/perl/embed.fnc#92 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#91~19870~ Sat Jun 28 08:39:57 2003
+++ perl/embed.fnc Sun Jun 29 06:17:09 2003
@@ -45,7 +45,7 @@
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)
==== //depot/perl/embed.h#408 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#407~19870~ Sat Jun 28 08:39:57 2003
+++ perl/embed.h Sun Jun 29 06:17:09 2003
@@ -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
==== //depot/perl/global.sym#241 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#240~19431~ Mon May 5 13:07:33 2003
+++ perl/global.sym Sun Jun 29 06:17:09 2003
@@ -21,6 +21,7 @@
perl_free
perl_run
perl_parse
+Perl_doing_taint
perl_clone
perl_clone_using
Perl_malloc
End of Patch.
