diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-08 12:52:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-08 12:52:28 +0000 |
| commit | 60fa28ff167ee89aee5425de954aa6183c50b55a (patch) | |
| tree | 480657b809ab47023e4a6a9eae68ecd68f5ca88b /win32/perlhost.h | |
| parent | e84ff256a2982e8c96a05c380a48c0d1a6cb3af9 (diff) | |
| download | perl-60fa28ff167ee89aee5425de954aa6183c50b55a.tar.gz | |
fork() failure to create pseudo process sets errno=EAGAIN and returns
undef on windows (from Clinton Pierce <clintp@geeksalad.org>)
p4raw-id: //depot/perl@6093
Diffstat (limited to 'win32/perlhost.h')
| -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; |