summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-06 23:42:55 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-06 23:42:55 +0000
commit014822e4c0d7b7cfffc319235fe7ea64ec87ecae (patch)
treed0b90cc5c733c9ad7777fb5547d661ce1afefa91 /pp_sys.c
parent8d9e1a19ce98858053635b6720101121924f56b9 (diff)
downloadperl-014822e4c0d7b7cfffc319235fe7ea64ec87ecae.tar.gz
tweaks for building with -DUSE_ITHREADS on !WIN32 platforms;
fix bug where lc($readonly) could result in bogus errors p4raw-id: //depot/perl@4660
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 6599285d41..8a1c98ce04 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3602,7 +3602,7 @@ PP(pp_fork)
PUSHi(childpid);
RETURN;
#else
-# if defined(USE_ITHREADS) && defined(WIN32)
+# if defined(USE_ITHREADS) && defined(USE_IMPLICIT_SYS)
djSP; dTARGET;
Pid_t childpid;
@@ -3800,7 +3800,7 @@ PP(pp_exec)
#endif
}
-#ifdef USE_ITHREADS
+#if !defined(HAS_FORK) && defined(USE_ITHREADS) && defined(USE_IMPLICIT_SYS)
if (value >= 0)
my_exit(value);
#endif