diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-10-21 23:01:45 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-10-21 23:01:45 +0000 |
| commit | ac5a684e91b96c66e134bedef4a18360ad57a796 (patch) | |
| tree | 0e6e2a945fd32067064b3b48883ed44ebfcbfac3 /os2 | |
| parent | d0ade26cf1fee91934267b3f3efb9fd9fbf4ecfe (diff) | |
| download | perl-ac5a684e91b96c66e134bedef4a18360ad57a796.tar.gz | |
Add PERLIO_INIT and PERLIO_TERM to PERL_SYS_INIT* and PERL_SYS_TERM*
in */*ish.h headers.
p4raw-id: //depot/perl@29077
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/os2ish.h | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index b3b3ed0c14..b27a63154a 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -228,22 +228,26 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags); MALLOC_CHECK_TAINT(*argcp, *argvp, *envp) \ _response(argcp, argvp); \ _wildcard(argcp, argvp); \ - Perl_OS2_init3(*envp, xreg, 0) + Perl_OS2_init3(*envp, xreg, 0); \ + PERLIO_INIT # define PERL_SYS_INIT(argcp, argvp) { \ { void *xreg[2]; \ _response(argcp, argvp); \ _wildcard(argcp, argvp); \ - Perl_OS2_init3(NULL, xreg, 0) + Perl_OS2_init3(NULL, xreg, 0); \ + PERLIO_INIT #else /* Compiling embedded Perl or Perl extension */ # define PERL_SYS_INIT3(argcp, argvp, envp) \ { void *xreg[2]; \ - Perl_OS2_init3(*envp, xreg, 0) + Perl_OS2_init3(*envp, xreg, 0); \ + PERLIO_INIT # define PERL_SYS_INIT(argcp, argvp) { \ { void *xreg[2]; \ - Perl_OS2_init3(NULL, xreg, 0) + Perl_OS2_init3(NULL, xreg, 0); \ + PERLIO_INIT #endif #define FORCE_EMX_DEINIT_EXIT 1 @@ -252,6 +256,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags); #define PERL_SYS_TERM2(xreg,flags) \ Perl_OS2_term(xreg, 0, flags); \ + PERLIO_TERM; \ MALLOC_TERM #define PERL_SYS_TERM1(xreg) \ |