diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 22:22:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 22:22:28 +0000 |
| commit | 635bbe87639b3a9ff9c900336f8f6c30e3d557b9 (patch) | |
| tree | ac40bfa596053c64e7de23f0c357bbba1a64113a /iperlsys.h | |
| parent | 76438f5e79927218b9a4456083aa82f4e7e798f1 (diff) | |
| download | perl-635bbe87639b3a9ff9c900336f8f6c30e3d557b9.tar.gz | |
windows fixes for virtualizing child std{in,out,err} handles,
attempts to lock uninitialized critical section in files that
were never explicitly opened (from Doug Lankshear)
p4raw-id: //depot/perl@5169
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 7b20d5dd5b..d07d525edc 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -597,6 +597,7 @@ typedef char* (*LPENVGetenv_len)(struct IPerlEnv*, typedef unsigned long (*LPEnvOsID)(struct IPerlEnv*); typedef char* (*LPEnvLibPath)(struct IPerlEnv*, char*); typedef char* (*LPEnvSiteLibPath)(struct IPerlEnv*, char*); +typedef void (*LPEnvGetChildIO)(struct IPerlEnv*, child_IO_table*); #endif struct IPerlEnv @@ -618,6 +619,7 @@ struct IPerlEnv LPEnvOsID pEnvOsID; LPEnvLibPath pLibPath; LPEnvSiteLibPath pSiteLibPath; + LPEnvGetChildIO pGetChildIO; #endif }; @@ -663,6 +665,8 @@ struct IPerlEnvInfo (*PL_Env->pLibPath)(PL_Env,(str)) #define PerlEnv_sitelib_path(str) \ (*PL_Env->pSiteLibPath)(PL_Env,(str)) +#define PerlEnv_get_child_IO(ptr) \ + (*PL_Env->pGetChildIO)(PL_Env, ptr) #endif #else /* PERL_IMPLICIT_SYS */ @@ -686,6 +690,7 @@ struct IPerlEnvInfo #ifdef WIN32 #define PerlEnv_os_id() win32_os_id() +#define PerlEnv_get_child_IO(ptr) win32_get_child_IO(ptr) #endif #endif /* PERL_IMPLICIT_SYS */ |