regexec.c: Replace code with equivlent inline fcn

Don't repeat a paradigm
Perl · May 28, 2021 · c75fcb4 · c75fcb4
1 parent c2a3435
commit c75fcb4
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/regexec.c b/regexec.c
@@ -6788,8 +6788,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
 		}
 		else {
 		    if (utf8_target)
-			while (chars--)
-			    uc += UTF8SKIP(uc);
+                        uc = utf8_hop(uc, chars);
 		    else
 			uc += chars;
 		}