From 423a80b7c64953ef2d8696dae9f0bd751f996893 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Fri, 9 Mar 2018 11:27:28 -0700
Subject: Don't create unneeded mutexes

These mutexes are needed only for unsafe threaded-locale operations.
---
 perlvars.h | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perlvars.h')

diff --git a/perlvars.h b/perlvars.h
index be67a59988..0f2e3475d3 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -99,9 +99,10 @@ PERLVARI(G, mmap_page_size, IV, 0)
 
 #if defined(USE_ITHREADS)
 PERLVAR(G, hints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
+#ifndef USE_THREAD_SAFE_LOCALE
 PERLVAR(G, locale_mutex, perl_mutex)   /* Mutex for setlocale() changing */
 PERLVAR(G, lc_numeric_mutex, perl_mutex)   /* Mutex for switching LC_NUMERIC */
-
+#  endif
 #endif
 
 /* Proxy for HAS_POSIX_2008_LOCALE, since that is not defined in time for this */
-- 
cgit v1.2.1