locale.c: Create STDIZED_SETLOCALE_LOCK

Its best to use a mutex associated with the operation. This creates one for stdized_setlocale(), which is just an alias for another mutex.
Perl · May 22, 2023 · 27615c6 · 27615c6
1 parent 5d2b0d6
commit 27615c6
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/locale.c b/locale.c
@@ -1369,6 +1369,8 @@ S_parse_LC_ALL_string(pTHX_ const char * string,
  *                  on
  */
 
+#define STDIZED_SETLOCALE_LOCK    POSIX_SETLOCALE_LOCK
+#define STDIZED_SETLOCALE_UNLOCK  POSIX_SETLOCALE_UNLOCK
 #if ! defined(USE_LOCALE)                                                   \
  || ! (   defined(HAS_LF_IN_SETLOCALE_RETURN)                               \
        || defined(HAS_BROKEN_SETLOCALE_QUERY_LC_ALL))
@@ -1628,13 +1630,13 @@ S_less_dicey_setlocale_r(pTHX_ const int category, const char * locale)
 
     PERL_ARGS_ASSERT_LESS_DICEY_SETLOCALE_R;
 
-    POSIX_SETLOCALE_LOCK;
+    STDIZED_SETLOCALE_LOCK;
 
     retval = save_to_buffer(stdized_setlocale(category, locale),
                             &PL_less_dicey_locale_buf,
                             &PL_less_dicey_locale_bufsize);
 
-    POSIX_SETLOCALE_UNLOCK;
+    STDIZED_SETLOCALE_UNLOCK;
 
     return retval;
 }
@@ -8034,9 +8036,9 @@ Perl_sync_locale(pTHX)
      * category. */
     const char * current_globals[LC_ALL_INDEX_];
     for (unsigned i = 0; i < LC_ALL_INDEX_; i++) {
-        POSIX_SETLOCALE_LOCK;
+        STDIZED_SETLOCALE_LOCK;
         current_globals[i] = savepv(stdized_setlocale(categories[i], NULL));
-        POSIX_SETLOCALE_UNLOCK;
+        STDIZED_SETLOCALE_UNLOCK;
     }
 
     /* Now we have to convert the current thread to use them */