diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 04:30:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 04:30:45 +0000 |
| commit | d65e4eaba652dacd6d72d665d8a212e71287c645 (patch) | |
| tree | f7f4a03123f3a96a381ba037b5633f7a25902720 /regcomp.c | |
| parent | df6a5558a2bce04b5ca8c596aea47665d230707a (diff) | |
| download | perl-d65e4eaba652dacd6d72d665d8a212e71287c645.tar.gz | |
Don't bother checking for the Greek special
cases if the node is too short.
p4raw-id: //depot/perl@14228
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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: |