fix tr/// Deparse tests under EBCDIC

[perl5.git] / perlvars.h

diff --git a/perlvars.h b/perlvars.h
index bdc8467..472ae2d 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -101,10 +101,11 @@ PERLVARI(G, mmap_page_size, IV, 0)
 PERLVAR(G, hints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
 PERLVAR(G, locale_mutex, perl_mutex)   /* Mutex for setlocale() changing */
 
-#   ifdef HAS_NEWLOCALE
-PERLVAR(G, C_locale_obj, locale_t)
-#   endif
+#endif
 
+/* Proxy for HAS_POSIX_2008_LOCALE, since that is not defined in time for this */
+#if defined(HAS_NEWLOCALE) && ! defined(NO_POSIX_2008_LOCALE)
+PERLVAR(G, C_locale_obj, locale_t)
 #endif
 
 #ifdef DEBUGGING
@@ -223,9 +224,15 @@ at a chain of handler functions, all of which have an opportunity to
 handle keywords, and only the last function in the chain (built into
 the Perl core) will normally return C<KEYWORD_PLUGIN_DECLINE>.
 
+For thread safety, modules should not set this variable directly.
+Instead, use the function L</wrap_keyword_plugin>.
+
 =cut
 */
 
+#if defined(USE_ITHREADS)
+PERLVAR(G, keyword_plugin_mutex, perl_mutex)   /* Mutex for PL_keyword_plugin */
+#endif
 PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard)
 
 PERLVARI(G, op_sequence, HV *, NULL)   /* dump.c */