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.

Reply via email to