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

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 6bc9f8b3be..b661a88663 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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