re_intuit_start(): remove other_last = rx_origin
authorDavid Mitchell <davem@iabyn.com>
Fri, 7 Feb 2014 17:04:21 +0000 (17:04 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sat, 8 Feb 2014 14:04:55 +0000 (14:04 +0000)
The previous commit made this assignment conditional on other_last
not decreasing; but it turns out that increasing it is pointless (although
harmless), since the next time round the "other" substring block, the
current rx_origin will be >= the old rx_origin (since we never decrease
it), and s >= new rx_origin. So s would already be >= the value we would set
other_last to, so it doesn't make any difference.

regexec.c

index ed6f9fc..0634a8b 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1121,8 +1121,6 @@ Perl_re_intuit_start(pTHX_
             DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log,
                 "  Found /%s^%s/m, restarting lookup for check-string at offset %ld...\n",
                 PL_colors[0], PL_colors[1], (long)(t + 1 - strpos)));
-            if (other_last < rx_origin)
-                other_last = rx_origin;
             goto restart;
         }