X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=locale.c;h=d90b5574474c67397dc7321e88e19466f7b9ece8;hb=e66636537be1375e175fdc55f8c556880390711f;hp=9acacb16f958029ed19b299118a47921003d019e;hpb=56279a21118d1d29a1b0c13e8567361057bbd7f9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/locale.c b/locale.c
index 9acacb1..d90b557 100644
--- a/locale.c
+++ b/locale.c
@@ -543,6 +543,8 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     {
 	 const char *p = PerlEnv_getenv("PERL_UNICODE");
 	 PL_unicode = p ? parse_unicode_opts(&p) : 0;
+	 if (PL_unicode & PERL_UNICODE_UTF8CACHEASSERT_FLAG)
+	     PL_utf8cache = -1;
     }
 #endif