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-Tag: perl-5.7.3~634
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/d65e4eaba652dacd6d72d665d8a212e71287c645?hp=df6a5558a2bce04b5ca8c596aea47665d230707a

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: