From f20d3862dc84aaf2aa255aa518181aeb4414aa51 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Tue, 4 Feb 2014 19:08:40 +0000 Subject: [PATCH] re_intuit_start(): give "other" block it's own 's' There's an 's' var global to the whole function; but give the "other substr" code block its own local 's' var, since its only used as a tmp var, not to pass values to or from the block. Eventually we'll remove the global 's' altogether. --- regexec.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index c717338..82b174f 100644 --- a/regexec.c +++ b/regexec.c @@ -916,6 +916,7 @@ Perl_re_intuit_start(pTHX_ do_other_substr: { char *last, *last1; + char *s; SV* must; struct reg_substr_datum *other = &prog->substrs->data[other_ix]; @@ -1288,7 +1289,6 @@ Perl_re_intuit_start(pTHX_ if (t + start_shift >= check_at) /* Contradicts floating=check */ goto retry_floating_check; /* Recheck anchored substring, but not floating... */ - s = check_at; if (!check) goto giveup; DEBUG_EXECUTE_r( PerlIO_printf(Perl_debug_log, -- 2.7.4