perl/perl-5.38.0-Revert-Do-uselocale-earlier-in-init-process.patch

16 lines
688 B
Diff
Raw Normal View History

diff -up perl-5.38.0/locale.c.orig perl-5.38.0/locale.c
--- perl-5.38.0/locale.c.orig 2023-09-25 13:41:37.090493602 +0200
+++ perl-5.38.0/locale.c 2023-09-25 13:42:07.636750287 +0200
@@ -5280,11 +5280,6 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n",
PL_C_locale_obj));
- /* Switch to using the POSIX 2008 interface now. This would happen below
- * anyway, but deferring it can lead to leaks of memory that would also get
- * malloc'd in the interim */
- uselocale(PL_C_locale_obj);
-
# ifdef USE_LOCALE_NUMERIC
PL_underlying_numeric_obj = duplocale(PL_C_locale_obj);