From 60fa28ff167ee89aee5425de954aa6183c50b55a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 8 May 2000 12:52:28 +0000 Subject: fork() failure to create pseudo process sets errno=EAGAIN and returns undef on windows (from Clinton Pierce ) p4raw-id: //depot/perl@6093 --- pp_sys.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'pp_sys.c') 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 -- cgit v1.2.1 From b4bcd66247e5bc9051bd228e0f63bc1a5ffcf2a7 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 8 May 2000 14:22:22 +0000 Subject: cygwin update (from Eric Fifer ) p4raw-id: //depot/perl@6094 --- pp_sys.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_sys.c') diff --git a/pp_sys.c b/pp_sys.c index b661a88663..9ea67e18a5 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -3744,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) { -- cgit v1.2.1