Change 14048 by jhi@alpha on 2002/01/03 20:36:38
Do not add the first characters of multicharacter foldings
into character classes.
Affected files ...
.... //depot/perl/regcomp.c#269 edit
Differences ...
==== //depot/perl/regcomp.c#269 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Thu Jan 3 13:45:05 2002
+++ perl/regcomp.c Thu Jan 3 13:45:05 2002
@@ -4025,9 +4025,10 @@
to_utf8_fold(tmpbuf, foldbuf, &foldlen);
f = utf8_to_uvchr(foldbuf, 0);
- /* If folding and foldable, insert also
- * the folded version to the charclass. */
- if (f != value)
+ /* If folding and foldable and a single
+ * character, insert also the folded version
+ * to the charclass. */
+ if (f != value && foldlen == UNISKIP(f))
Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", f);
/* If folding and the value is one of the Greek
End of Patch.
