Turn on UTF8 cache assertions with -Ca

p4raw-id: //depot/perl@27875

1 files changed, 2 insertions, 0 deletions

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