This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32 should start new threads in C locale
authorKarl Williamson <khw@cpan.org>
Sat, 10 Sep 2022 20:38:31 +0000 (14:38 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 12 Sep 2022 18:01:15 +0000 (12:01 -0600)
Prior to this commit, wrong cpp directives did not guarantee this.

locale.c

index 62de4cf..51957d2 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -6536,12 +6536,11 @@ Perl_thread_locale_init()
     /* On Windows, make sure new thread has per-thread locales enabled */
     _configthreadlocale(_ENABLE_PER_THREAD_LOCALE);
 
-#  else
+#  endif
 
     /* This thread starts off in the C locale */
     Perl_setlocale(LC_ALL, "C");
 
-#  endif
 #endif
 
 }