From: Hans Mulder <hansmu@xs4all.nl>
Date: Tue, 23 Feb 1999 00:26:25 +0000 (+0100)
Subject: adjust a Perl_malloc() flag for NeXT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=606974b21cdb98866563c221c06d21c01db0cf0d;p=p5sagit%2Fp5-mst-13.2.git

adjust a Perl_malloc() flag for NeXT
	Message-Id: <9902222329.AA17516@icgned.icgroup.nl>
	Subject: [PATCH for _55] MUTEX_INIT_CALLS_MALLOC no longer necessary

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

diff --git a/perl.h b/perl.h
index 42505f0..94fd478 100644
--- 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;