Merge e3e3724 into 44e4059

Perl · Jun 9, 2021 · 9663b27 · 9663b27
2 parents 44e4059 + e3e3724
commit 9663b27
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/regexec.c b/regexec.c
@@ -3651,9 +3651,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, char *strend,
             prog->lastparen = prog->lastcloseparen = 0;
             RXp_MATCH_UTF8_set(prog, utf8_target);
             prog->offs[0].start = s - strbeg;
-            prog->offs[0].end = utf8_target
-                ? (char*)utf8_hop_forward((U8*)s, prog->minlenret, (U8 *) strend) - strbeg
-                : s - strbeg + prog->minlenret;
+            prog->offs[0].end = HOP3(s, prog->minlenret, strend) - (U8 *)strbeg;
             if ( !(flags & REXEC_NOT_FIRST) )
                 S_reg_set_capture_string(aTHX_ rx,
                                         strbeg, strend,