This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: fork child handling
authorAndy Broad <andy@broad.ology.org.uk>
Wed, 19 Aug 2015 16:39:24 +0000 (12:39 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:45 +0000 (11:12 -0400)
pp_sys.c

index 9cc7e7b..c8c84b3 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4211,7 +4211,7 @@ PP(pp_fork)
     PUSHi(childpid);
     RETURN;
 #else
-#  if defined(USE_ITHREADS) && defined(PERL_IMPLICIT_SYS)
+#  if (defined(USE_ITHREADS) && defined(PERL_IMPLICIT_SYS)) || defined(__amigaos4__)
     dSP; dTARGET;
     Pid_t childpid;