Don't bother checking for the Greek special

cases if the node is too short.

p4raw-id: //depot/perl@14228

diff --git a/regcomp.c b/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: