Use UCHARAT() as suggested by Inaba Hiroto.

p4raw-id: //depot/perl@12039

1 files changed, 4 insertions, 3 deletions

diff --git a/regexec.c b/regexec.c
index b70896f231..b691162a36 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3282,12 +3282,13 @@ S_regmatch(pTHX_ regnode *prog)
 			/* 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;