diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-08 17:33:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-08 17:33:10 +0000 |
| commit | 59de697d945dc75b2bf7e79106ddbd6b3e75eb7f (patch) | |
| tree | 82420c15d812da33c1ac80a138eb16b66067afec /pp_sys.c | |
| parent | bd026c32438ec68a31fc6a7281cbf547c5a94cb4 (diff) | |
| parent | b4bcd66247e5bc9051bd228e0f63bc1a5ffcf2a7 (diff) | |
| download | perl-59de697d945dc75b2bf7e79106ddbd6b3e75eb7f.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6096
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3679,6 +3679,8 @@ PP(pp_fork) EXTEND(SP, 1); PERL_FLUSHALL_FOR_CHILD; childpid = PerlProc_fork(); + if (childpid == -1) + RETSETUNDEF; PUSHi(childpid); RETURN; # else @@ -3742,7 +3744,7 @@ PP(pp_system) } } PERL_FLUSHALL_FOR_CHILD; -#if (defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(OS2) +#if (defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(OS2) && !defined(__CYGWIN__) if (PerlProc_pipe(pp) >= 0) did_pipes = 1; while ((childpid = vfork()) == -1) { |