diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 02:46:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 02:46:18 +0000 |
| commit | 16cebae21a82370677b73e4db793c726b3f4ff27 (patch) | |
| tree | d1f3933986e6a53011559c19358a0ecb37c471b3 | |
| parent | ef712cf74fdf150057b2ffb17983e6f0cc1fd914 (diff) | |
| download | perl-16cebae21a82370677b73e4db793c726b3f4ff27.tar.gz | |
NeXT doesn't have FD_CLOEXEC (suggested by Hans Mulder)
p4raw-id: //depot/perl@3581
| -rw-r--r-- | util.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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 |