XXX temporary: undef LC_ALL

Perl · May 22, 2023 · 76165e1 · 76165e1
1 parent 22657c5
commit 76165e1
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 2 deletions.
diff --git a/makedef.pl b/makedef.pl
@@ -131,13 +131,21 @@ BEGIN
     $define{USE_REENTRANT_API} = 1;
 }
 
+$define{LC_ALL_MASK} = 1;
+$define{LC_ALL} = 1;
+if ($define{NO_LC_ALL} ) {
+    $define{LC_ALL} = 0;
+    $define{LC_ALL_MASK} = 0;
+}
+
 if (! $define{NO_LOCALE}) {
     if ( ! $define{NO_POSIX_2008_LOCALE}
         && $define{HAS_NEWLOCALE}
         && $define{HAS_USELOCALE}
         && $define{HAS_DUPLOCALE}
-        && $define{HAS_FREELOCALE})
-    {
+        && $define{HAS_FREELOCALE}
+        && $define{LC_ALL_MASK}
+    ) {
         $define{HAS_POSIX_2008_LOCALE} = 1;
         $define{USE_LOCALE} = 1;
     }

diff --git a/perl.h b/perl.h
@@ -1105,6 +1105,11 @@ violations are fatal.
 
 #include "perl_langinfo.h"    /* Needed for _NL_LOCALE_NAME */
 
+#ifdef NO_LC_ALL
+#  undef LC_ALL
+#  undef LC_ALL_MASK
+#endif
+
 /* =========================================================================
  * The defines from here to the following ===== line are unfortunately
  * duplicated in makedef.pl, and changes here MUST also be made there */