Add variable for if the current UTF-8 locale is Turkic

It currently is always set false, until later in this series of commits.

diff --git a/embedvar.h b/embedvar.h
index ad7aae8..787d046 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -157,6 +157,7 @@
 #define PL_in_load_module      (vTHX->Iin_load_module)
 #define PL_in_utf8_COLLATE_locale      (vTHX->Iin_utf8_COLLATE_locale)
 #define PL_in_utf8_CTYPE_locale        (vTHX->Iin_utf8_CTYPE_locale)
+#define PL_in_utf8_turkic_locale       (vTHX->Iin_utf8_turkic_locale)
 #define PL_incgv               (vTHX->Iincgv)
 #define PL_initav              (vTHX->Iinitav)
 #define PL_inplace             (vTHX->Iinplace)

diff --git a/intrpvar.h b/intrpvar.h
index fad1eaa..f604ef9 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -262,6 +262,7 @@ PERLVAR(I, exit_flags,      U8)             /* was exit() unexpected, etc. */
 PERLVAR(I, utf8locale, bool)           /* utf8 locale detected */
 PERLVAR(I, in_utf8_CTYPE_locale, bool)
 PERLVAR(I, in_utf8_COLLATE_locale, bool)
+PERLVAR(I, in_utf8_turkic_locale, bool)
 #if defined(USE_ITHREADS) && ! defined(USE_THREAD_SAFE_LOCALE)
 PERLVARI(I, lc_numeric_mutex_depth, int, 0)   /* Emulate general semaphore */
 #endif

diff --git a/locale.c b/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