More UTF8 EXACT fixing.

p4raw-id: //depot/perl@12863

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index be2e707096..198e99ead2 100644
--- 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;