More UTF8 EXACT fixing.

p4raw-id: //depot/perl@12863

diff --git a/regexec.c b/regexec.c
index be2e707..198e99e 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2230,7 +2230,7 @@ S_regmatch(pTHX_ regnode *prog)
                            sayNO;
                        if (*((U8*)l) != utf8_to_uvchr((U8*)s, &len))
                            sayNO;
-                       s++;
+                       s+=len;
                        l++;
                    }
                locinput = l;