diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-05-28 08:11:48 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-28 16:48:39 +0000 |
| commit | 4435c47799d17bebb53fa0fbe063f550be95a17c (patch) | |
| tree | 2db6065ebdcf42b856fb5cab44420ed8dade15f2 /util.c | |
| parent | e824fb2c869ac05c8b4bf94a03f1e1121a0963c7 (diff) | |
| download | perl-4435c47799d17bebb53fa0fbe063f550be95a17c.tar.gz | |
Required OS/2-related patches
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199905281611.MAA02037@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@3496
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2090,6 +2090,7 @@ my_popen(char *cmd, char *mode) PerlLIO_dup2(p[THIS], *mode == 'r'); PerlLIO_close(p[THIS]); } +#ifndef OS2 if (doexec) { #if !defined(HAS_FCNTL) || !defined(F_SETFD) int fd; @@ -2104,6 +2105,7 @@ my_popen(char *cmd, char *mode) do_exec3(cmd,pp[1],did_pipes); /* may or may not use the shell */ PerlProc__exit(1); } +#endif /* defined OS2 */ /*SUPPRESS 560*/ if (tmpgv = gv_fetchpv("$",TRUE, SVt_PV)) sv_setiv(GvSV(tmpgv), (IV)getpid()); |