Change 14535 by jhi@alpha on 2002/02/03 17:29:57
EBCDIC: it's much nicer to compare Unicode code points
to Unicode code points.
Affected files ...
.... //depot/perl/regexec.c#257 edit
Differences ...
==== //depot/perl/regexec.c#257 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sun Feb 3 10:45:06 2002
+++ perl/regexec.c Sun Feb 3 10:45:06 2002
@@ -2332,7 +2332,7 @@
if (l >= PL_regeol)
sayNO;
if (NATIVE_TO_UNI(*(U8*)s) !=
- utf8_to_uvchr((U8*)l, &ulen))
+ utf8_to_uvuni((U8*)l, &ulen))
sayNO;
l += ulen;
s ++;
@@ -2344,7 +2344,7 @@
if (l >= PL_regeol)
sayNO;
if (NATIVE_TO_UNI(*((U8*)l)) !=
- utf8_to_uvchr((U8*)s, &ulen))
+ utf8_to_uvuni((U8*)s, &ulen))
sayNO;
s += ulen;
l ++;
End of Patch.