From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 13 Jan 2002 04:30:45 +0000 (+0000)
Subject: Don't bother checking for the Greek special
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d65e4eaba652dacd6d72d665d8a212e71287c645;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: