From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 5 Jul 1999 02:46:18 +0000 (+0000)
Subject: NeXT doesn't have FD_CLOEXEC (suggested by Hans Mulder)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16cebae21a82370677b73e4db793c726b3f4ff27;p=p5sagit%2Fp5-mst-13.2.git

NeXT doesn't have FD_CLOEXEC (suggested by Hans Mulder)

p4raw-id: //depot/perl@3581
---

diff --git a/util.c b/util.c
index 582a797..687c5a3 100644
--- a/util.c
+++ b/util.c
@@ -66,6 +66,10 @@ long lastxycount[MAXXCOUNT][MAXYCOUNT];
 
 #endif
 
+#if defined(HAS_FCNTL) && defined(F_SETFD) && !defined(FD_CLOEXEC)
+#  define FD_CLOEXEC 1			/* NeXT needs this */
+#endif
+
 /* paranoid version of system's malloc() */
 
 /* NOTE:  Do not call the next three routines directly.  Use the macros
@@ -80,8 +84,9 @@ Perl_safesysmalloc(MEM_SIZE size)
     Malloc_t ptr;
 #ifdef HAS_64K_LIMIT
 	if (size > 0xffff) {
-		PerlIO_printf(PerlIO_stderr(), "Allocation too large: %lx\n", size) FLUSH;
-		WITH_THX(my_exit(1));
+	    PerlIO_printf(PerlIO_stderr(),
+			  "Allocation too large: %lx\n", size) FLUSH;
+	    WITH_THX(my_exit(1));
 	}
 #endif /* HAS_64K_LIMIT */
 #ifdef DEBUGGING