XXX appears to be an existing bug need multiplicity for cur_locale obj

SEE what is failing, maybe only non2008 nonsetlocale
Perl · May 6, 2023 · 5197544 · 5197544
1 parent 60cbf33
commit 5197544
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/locale.c b/locale.c
@@ -7293,7 +7293,7 @@ Perl_thread_locale_term(pTHX)
      * they affect libc's knowledge of the thread; libc has no knowledge of
      * aTHX */
 
-#ifdef USE_POSIX_2008_LOCALE
+#if defined(USE_POSIX_2008_LOCALE) && defined(MULTIPLICITY)
 
     /* C starts the new thread in the global C locale.  If we are thread-safe,
      * we want to not be in the global locale */

diff --git a/perl.c b/perl.c
@@ -1128,7 +1128,7 @@ perl_destruct(pTHXx)
         PL_curlocales[i] = NULL;
     }
 #endif
-#ifdef USE_POSIX_2008_LOCALE
+#if defined(USE_POSIX_2008_LOCALE) && defined(MULTIPLICITY)
     {
         /* This also makes sure we aren't using a locale object that gets freed
          * below */