From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 16 Sep 2001 19:23:07 +0000 (+0000)
Subject: Use UCHARAT() as suggested by Inaba Hiroto.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8e8ab15da1db8d0342b4425b514ee293f371382;p=p5sagit%2Fp5-mst-13.2.git

Use UCHARAT() as suggested by Inaba Hiroto.

p4raw-id: //depot/perl@12039
---

diff --git a/regexec.c b/regexec.c
index b70896f..b691162 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;