diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:28:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:28:58 +0000 |
| commit | 1199dd43248b0956628341f2a63939a8378c8016 (patch) | |
| tree | 57ca33b5b1f2b53e78bef1deb208fbccb0860308 /os2 | |
| parent | 24130e51d52fd22992dd62e432895a9115f3a585 (diff) | |
| download | perl-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')
| -rw-r--r-- | os2/os2ish.h | 4 |
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 |