From 2d7a92375815264badaef23c612657cbd4799f31 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 4 Jan 1998 07:59:44 +0000 Subject: [win32] Various win32 fixes - support spawn via system(&P_NOWAIT,...) like OS2 - support wait() and waitpid() - s/GetCurrentDirectory/GetCwd/, long-named XS to be removed - support -lfoo properly in ExtUtils::Liblist - fix outdated info about Win32 support in perlfaq2 - fix win32 bug in perldoc that causes spurious warnings - regularize global function/variable names yet more - fix bug in do_aspawn() (it was always invoking shell, instead of almost never) - implement and export win32_wait() - stub version of USE_RTL_THREAD_API p4raw-id: //depot/win32/perl@391 --- pp_sys.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pp_sys.c') diff --git a/pp_sys.c b/pp_sys.c index 42e8a9c19a..23c7569df5 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -3097,7 +3097,7 @@ PP(pp_fork) PP(pp_wait) { -#if !defined(DOSISH) || defined(OS2) +#if !defined(DOSISH) || defined(OS2) || defined(WIN32) djSP; dTARGET; int childpid; int argflags; @@ -3113,7 +3113,7 @@ PP(pp_wait) PP(pp_waitpid) { -#if !defined(DOSISH) || defined(OS2) +#if !defined(DOSISH) || defined(OS2) || defined(WIN32) djSP; dTARGET; int childpid; int optype; @@ -3126,7 +3126,7 @@ PP(pp_waitpid) SETi(childpid); RETURN; #else - DIE(no_func, "Unsupported function wait"); + DIE(no_func, "Unsupported function waitpid"); #endif } -- cgit v1.2.1