This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't bother checking for the Greek special
[perl5.git] / regcomp.c
index bf1b42f..51b3c5d 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -737,7 +737,7 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap, reg
                }
            }
 
-           if (UTF && OP(scan) == EXACTF) {
+           if (UTF && OP(scan) == EXACTF && STR_LEN(scan) >= 6) {
 /*
   Two problematic code points in Unicode casefolding of EXACT nodes: