This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
adjust a Perl_malloc() flag for NeXT
[perl5.git] / 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;