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 /win32 | |
| parent | bd026c32438ec68a31fc6a7281cbf547c5a94cb4 (diff) | |
| parent | b4bcd66247e5bc9051bd228e0f63bc1a5ffcf2a7 (diff) | |
| download | perl-59de697d945dc75b2bf7e79106ddbd6b3e75eb7f.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6096
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/perlhost.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index cac05b2832..51e125b848 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1770,8 +1770,10 @@ PerlProcFork(struct IPerlProc* piPerl) (LPVOID)new_perl, 0, &id); # endif PERL_SET_THX(aTHXo); /* XXX perl_clone*() set TLS */ - if (!handle) - Perl_croak(aTHX_ "panic: pseudo fork() failed"); + if (!handle) { + errno = EAGAIN; + return -1; + } w32_pseudo_child_handles[w32_num_pseudo_children] = handle; w32_pseudo_child_pids[w32_num_pseudo_children] = id; ++w32_num_pseudo_children; |