From 53f73940f58aac9347477bba3db29ef6b23ad573 Mon Sep 17 00:00:00 2001 From: Andy Broad Date: Sat, 15 Aug 2015 18:31:49 -0400 Subject: [PATCH] amigaos4: avoid my_pclose --- util.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/util.c b/util.c index f401042..641fde0 100644 --- a/util.c +++ b/util.c @@ -2906,7 +2906,7 @@ Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save) #endif /* !PERL_MICRO */ /* VMS' my_pclose() is in VMS.c; same with OS/2 */ -#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__LIBCATAMOUNT__) +#if (!defined(DOSISH) || defined(HAS_FORK)) && !defined(VMS) && !defined(__LIBCATAMOUNT__) && !defined(__amigaos4__) I32 Perl_my_pclose(pTHX_ PerlIO *ptr) { @@ -3066,7 +3066,10 @@ S_pidgone(pTHX_ Pid_t pid, int status) } #endif -#if defined(OS2) +#if defined(OS2) || defined(__amigaos4__) +# if defined(__amigaos4__) && defined(pclose) +# undef pclose +# endif int pclose(); #ifdef HAS_FORK int /* Cannot prototype with I32 -- 1.8.3.1