Change 14228 by jhi@alpha on 2002/01/13 04:30:45
Don't bother checking for the Greek special
cases if the node is too short.
Affected files ...
.... //depot/perl/regcomp.c#279 edit
Differences ...
==== //depot/perl/regcomp.c#279 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sat Jan 12 21:45:06 2002
+++ perl/regcomp.c Sat Jan 12 21:45:06 2002
@@ -737,7 +737,7 @@
}
}
- if (UTF && OP(scan) == EXACTF) {
+ if (UTF && OP(scan) == EXACTF && STR_LEN(scan) >= 6) {
/*
Two problematic code points in Unicode casefolding of EXACT nodes:
End of Patch.
