The regexec.c change of #3606 caused a core dump in fbm_instr()

if its caller re_intuit_start() was entered with strend == strpos
because end_shift ended up as -1.  The patch ain't necessarily
correct but least the core dump is avoided.

p4raw-id: //depot/cfgperl@3671

diff --git a/regexec.c b/regexec.c
index 4df60ac..e40d1c7 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -358,6 +358,8 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
     }
 
   restart:
+    if (end_shift < 0)
+       end_shift = 0; /* can happen when strend == strpos */
     if (flags & REXEC_SCREAM) {
        SV *c = prog->check_substr;
        char *strbeg = SvPVX(sv);       /* XXXX Assume PV_force() on SCREAM! */