Cache locale UTF8-ness lookups

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index cbb7891..3cc8388 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -262,6 +262,8 @@ 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)
+PERLVARA(I, locale_utf8ness, 256, char)
+
 #ifdef USE_LOCALE_CTYPE
     PERLVAR(I, warn_locale, SV *)
 #endif