This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Add dTHX_DEBUGGING
authorKarl Williamson <khw@cpan.org>
Tue, 6 Feb 2018 05:01:35 +0000 (22:01 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 18 Feb 2018 18:02:37 +0000 (11:02 -0700)
which is a NOOP except on DEBUGGING builds

perl.h

diff --git a/perl.h b/perl.h
index 56b45d8..05ceff4 100644 (file)
--- a/perl.h
+++ b/perl.h
 #  undef PERL_TRACK_MEMPOOL
 #endif
 
+#ifdef DEBUGGING
+#  define dTHX_DEBUGGING dTHX
+#else
+#  define dTHX_DEBUGGING dNOOP
+#endif
+
 #define STATIC static
 
 #ifndef PERL_CORE
@@ -5546,7 +5552,7 @@ typedef struct am_table_short AMTS;
                     } STMT_END
 #  endif
 
-#  ifndef USE_ITHREADS
+#  if ! defined(USE_ITHREADS) || defined(USE_THREAD_SAFE_LOCALE)
 #    define LOCALE_INIT
 #    define LOCALE_LOCK
 #    define LOCALE_UNLOCK