Change 12039 by jhi@alpha on 2001/09/16 19:23:07
Use UCHARAT() as suggested by Inaba Hiroto.
Affected files ...
... //depot/perl/regexec.c#190 edit
Differences ...
==== //depot/perl/regexec.c#190 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sun Sep 16 13:30:05 2001
+++ perl/regexec.c Sun Sep 16 13:30:05 2001
@@ -3282,12 +3282,13 @@
/* Find place 'next' could work */
if (!do_utf8) {
if (c1 == c2) {
- while (locinput <= e && (U8) *locinput != (U8) c1)
+ while (locinput <= e &&
+ UCHARAT(locinput) != c1)
locinput++;
} else {
while (locinput <= e
- && (U8) *locinput != (U8) c1
- && (U8) *locinput != (U8) c2)
+ && UCHARAT(locinput) != c1
+ && UCHARAT(locinput) != c2)
locinput++;
}
count = locinput - old;
End of Patch.
