summaryrefslogtreecommitdiff
path: root/os2/os2ish.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-06-29 09:28:58 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-06-29 09:28:58 +0000
commit1199dd43248b0956628341f2a63939a8378c8016 (patch)
tree57ca33b5b1f2b53e78bef1deb208fbccb0860308 /os2/os2ish.h
parent24130e51d52fd22992dd62e432895a9115f3a585 (diff)
downloadperl-1199dd43248b0956628341f2a63939a8378c8016.tar.gz
Move the PL_earlytaint initialization to the PERL_SYS_INIT()
as per suggestion from Sarathy. p4raw-id: //depot/perl@19878
Diffstat (limited to 'os2/os2ish.h')
-rw-r--r--os2/os2ish.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h
index 225d271236..45e80b5208 100644
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -218,6 +218,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
# define PERL_SYS_INIT3(argcp, argvp, envp) \
{ void *xreg[2]; \
+ EARLY_INIT3(argcp, argvp, envp) \
MALLOC_CHECK_TAINT(*argcp, *argvp, *envp) \
_response(argcp, argvp); \
_wildcard(argcp, argvp); \
@@ -225,6 +226,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
# define PERL_SYS_INIT(argcp, argvp) { \
{ void *xreg[2]; \
+ EARLY_INIT2(argcp, argvp) \
_response(argcp, argvp); \
_wildcard(argcp, argvp); \
Perl_OS2_init3(NULL, xreg, 0)
@@ -233,9 +235,11 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
# define PERL_SYS_INIT3(argcp, argvp, envp) \
{ void *xreg[2]; \
+ EARLY_INIT3(argcp, argvp, envp) \
Perl_OS2_init3(*envp, xreg, 0)
# define PERL_SYS_INIT(argcp, argvp) { \
{ void *xreg[2]; \
+ EARLY_INIT2(argcp, argvp) \
Perl_OS2_init3(NULL, xreg, 0)
#endif