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
#define PERL_SYS_TERM2(xreg,flags) \
Perl_OS2_term(xreg, 0, flags); \
+ PERLIO_TERM; \
MALLOC_TERM
#define PERL_SYS_TERM1(xreg) \
#define TMPPATH1 "plXXXXXX"
extern const char *tmppath;
PerlIO *my_syspopen(pTHX_ char *cmd, char *mode);
-/* Cannot prototype with I32 at this point. */
+#ifdef PERL_CORE
+/* Cannot prototype with I32, SV at this point (used in x2p too). */
+PerlIO *my_syspopen4(pTHX_ char *cmd, char *mode, I32 cnt, SV** args);
+#endif
int my_syspclose(PerlIO *f);
FILE *my_tmpfile (void);
char *my_tmpnam (char *);