projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f762923
)
Use UCHARAT() as suggested by Inaba Hiroto.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 16 Sep 2001 19:23:07 +0000
(19:23 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 16 Sep 2001 19:23:07 +0000
(19:23 +0000)
p4raw-id: //depot/perl@12039
regexec.c
patch
|
blob
|
history
diff --git
a/regexec.c
b/regexec.c
index
b70896f
..
b691162
100644
(file)
--- 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;