Turn on UTF8 cache assertions with -Ca

p4raw-id: //depot/perl@27875

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index a8fd47fab5..320793d557 100644
--- a/perl.c
+++ b/perl.c
@@ -3016,6 +3016,8 @@ Perl_moreswitches(pTHX_ char *s)
     case 'C':
         s++;
         PL_unicode = parse_unicode_opts( (const char **)&s );
+	if (PL_unicode & PERL_UNICODE_UTF8CACHEASSERT_FLAG)
+	    PL_utf8cache = -1;
 	return s;
     case 'F':
 	PL_minus_F = TRUE;