Perl_regexec_flags(): use HOP4c in another place
authorDavid Mitchell <davem@iabyn.com>
Sun, 19 Jan 2014 00:15:57 +0000 (00:15 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 7 Feb 2014 22:39:37 +0000 (22:39 +0000)
Now that we have this macro, use it.

regexec.c

index 8b2d7c5..f63eda6 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2822,7 +2822,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, char *strend,
        dontbother = 0;
        strend = HOPc(strend, -dontbother);
        while ( (s <= last) &&
-               (s = fbm_instr((unsigned char*)HOP3(s, back_min, (back_min<0 ? strbeg : strend)),
+               (s = fbm_instr((unsigned char*)HOP4c(s, back_min, strbeg,  strend),
                                  (unsigned char*)strend, must,
                                  multiline ? FBMrf_MULTILINE : 0)) ) {
            DEBUG_EXECUTE_r( did_match = 1 );