diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-24 14:31:49 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-24 14:31:49 +0000 |
| commit | 8c0134a884f927d58f584b87281e5a27133cbf8f (patch) | |
| tree | c8ab595e27dc62b04dc3888d299f0cab124d2f04 /win32/perlhost.h | |
| parent | 5dd1177c222be3aa5f44de160a952953bc5703a5 (diff) | |
| download | perl-8c0134a884f927d58f584b87281e5a27133cbf8f.tar.gz | |
PerlIO fixups for Win32:
- provide win33_popenlist() - non-functional as yet.
- avoid need for aTHX in PerlIO_debug calls - even if not
enabled args are still evaluated so Win32 has trouble during fork().
- Add PerlIO/Scalar to list of extensions in win32/makefile.mk
- Fixup makedef.pl for latest set of symbols.
p4raw-id: //depot/perlio@9321
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 719d82ac04..815be84b84 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1594,6 +1594,14 @@ PerlProcPopen(struct IPerlProc* piPerl, const char *command, const char *mode) return win32_popen(command, mode); } +PerlIO* +PerlProcPopenList(struct IPerlProc* piPerl, const char *mode, IV narg, SV **args) +{ + dTHXo; + PERL_FLUSHALL_FOR_CHILD; + return win32_popenlist(mode, narg, args); +} + int PerlProcPclose(struct IPerlProc* piPerl, PerlIO *stream) { @@ -1893,7 +1901,8 @@ struct IPerlProc perlProc = PerlProcSpawn, PerlProcSpawnvp, PerlProcASpawn, - PerlProcLastHost + PerlProcLastHost, + PerlProcPopenList }; |