This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: FD_CLOEXEC is defined but not implemented
authorAndy Broad <andy@broad.ology.org.uk>
Wed, 26 Aug 2015 21:26:38 +0000 (17:26 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:44 +0000 (11:12 -0400)
perl.h

diff --git a/perl.h b/perl.h
index 83521d0..8eb625b 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2789,6 +2789,11 @@ typedef struct padname PADNAME;
 #   include "unixish.h"
 #endif
 
 #   include "unixish.h"
 #endif
 
+#if defined(__amigaos4__)
+#    include "amigaos.h"
+#    undef FD_CLOEXEC /* a lie in AmigaOS */
+#endif
+
 /* NSIG logic from Configure --> */
 /* Strange style to avoid deeply-nested #if/#else/#endif */
 #ifndef NSIG
 /* NSIG logic from Configure --> */
 /* Strange style to avoid deeply-nested #if/#else/#endif */
 #ifndef NSIG
@@ -6341,6 +6346,10 @@ expression, but with an empty argument list, like this:
 #  include <fcntl.h>
 #endif
 
 #  include <fcntl.h>
 #endif
 
+#ifdef __amigaos4__
+#  undef FD_CLOEXEC /* a lie in AmigaOS */
+#endif
+
 #ifdef I_SYS_FILE
 #  include <sys/file.h>
 #endif
 #ifdef I_SYS_FILE
 #  include <sys/file.h>
 #endif