adjust a Perl_malloc() flag for NeXT
Hans Mulder [Tue, 23 Feb 1999 00:26:25 +0000 (01:26 +0100)]
Message-Id: <9902222329.AA17516@icgned.icgroup.nl>
Subject: [PATCH for _55] MUTEX_INIT_CALLS_MALLOC no longer necessary

p4raw-id: //depot/perl@3020

perl.h

diff --git a/perl.h b/perl.h
index 42505f0..94fd478 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1380,7 +1380,7 @@ typedef I32 (*filter_t) _((int, SV *, int));
 #      else
 #        ifdef I_MACH_CTHREADS
 #          include <mach/cthreads.h>
-#          ifdef NeXT
+#          if defined(__NeXT__) && defined(PERL_POLLUTE_MALLOC)
 #            define MUTEX_INIT_CALLS_MALLOC
 #          endif
 typedef cthread_t      perl_os_thread;