Change 14852 by jhi@alpha on 2002/02/24 18:20:55
Comment update.
Affected files ...
.... //depot/perl/regexec.c#260 edit
Differences ...
==== //depot/perl/regexec.c#260 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sun Feb 24 11:30:05 2002
+++ perl/regexec.c Sun Feb 24 11:30:05 2002
@@ -959,8 +959,8 @@
to_utf8_lower((U8*)m, tmpbuf1, &ulen1);
to_utf8_upper((U8*)m, tmpbuf2, &ulen2);
- c1 = utf8_to_uvuni(tmpbuf1, 0);
- c2 = utf8_to_uvuni(tmpbuf2, 0);
+ c1 = utf8_to_uvchr(tmpbuf1, 0);
+ c2 = utf8_to_uvchr(tmpbuf2, 0);
}
else {
c1 = *(U8*)m;
@@ -984,9 +984,10 @@
* text of the node. The c1 and c2 are the first
* characters (though in Unicode it gets a bit
* more complicated because there are more cases
- * than just upper and lower: one is really supposed
- * to use the so-called folding case for case-insensitive
- * matching (called "loose matching" in Unicode). */
+ * than just upper and lower: one needs to use
+ * the so-called folding case for case-insensitive
+ * matching (called "loose matching" in Unicode).
+ * ibcmp_utf8() will do just that. */
if (do_utf8) {
UV c, f;
End of Patch.
