re_intuit_start(): localise 's' in abs anch branch

The value of s within the block devoted to finding an absolutely anchored
check substr is used neither on entry or exit from the block, so make it
local.

diff --git a/regexec.c b/regexec.c
index 670ff0b..75ce361 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -762,6 +762,7 @@ Perl_re_intuit_start(pTHX_
             {
                /* Substring at constant offset from beg-of-str... */
                SSize_t slen = SvCUR(check);
+                char *s;
 
                s = HOP3c(strpos, prog->check_offset_min, strend);