This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add variable for if the current UTF-8 locale is Turkic
[perl5.git] / locale.c
index 0f40250..383b213 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1668,6 +1668,8 @@ S_new_ctype(pTHX_ const char *newctype)
             }
         }
 
+            PL_in_utf8_turkic_locale = FALSE;
+
 #  ifdef MB_CUR_MAX
 
         /* We only handle single-byte locales (outside of UTF-8 ones; so if