X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ddd5ebe0cadc81a0360ad8007674490fda89ee88..e9bc6d6b34afc0063cc5181b59f77eeb81b1182d:/dist/threads/threads.xs

diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs
index 4e9e31f..3da9165 100644
--- a/dist/threads/threads.xs
+++ b/dist/threads/threads.xs
@@ -580,6 +580,8 @@ S_ithread_run(void * arg)
     S_set_sigmask(&thread->initial_sigmask);
 #endif
 
+    thread_locale_init();
+
     PL_perl_destruct_level = 2;
 
     {
@@ -665,6 +667,8 @@ S_ithread_run(void * arg)
     MUTEX_UNLOCK(&thread->mutex);
     MUTEX_UNLOCK(&MY_POOL.create_destruct_mutex);
 
+    thread_locale_term();
+
     /* Exit application if required */
     if (exit_app) {
         (void)S_jmpenv_run(aTHX_ 2, thread, NULL, &exit_app, &exit_code);