From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 5 Nov 2001 23:24:24 +0000 (+0000)
Subject: EXACT correction attempt.  Continued in #12863.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf27e83cadf62074789d2433ea86ae71021b0fc9;p=p5sagit%2Fp5-mst-13.2.git

EXACT correction attempt.  Continued in #12863.

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

diff --git a/regexec.c b/regexec.c
index b20e15d..98fcb65 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2211,7 +2211,7 @@ S_regmatch(pTHX_ regnode *prog)
 			    sayNO;
 			if (*((U8*)s) != utf8_to_uvchr((U8*)l, &len))
 			    sayNO;
-			s++;
+			s += len;
 			l += len;
 		    }
 		else
@@ -2220,7 +2220,7 @@ S_regmatch(pTHX_ regnode *prog)
 			    sayNO;
 			if (*((U8*)l) != utf8_to_uvchr((U8*)s, &len))
 			    sayNO;
-			s += len;
+			s++;
 			l++;
 		    }
 		locinput = l;