[ID 20000731.010] regex error

Message-Id: <200008021353.OAA24761@crypt.compulink.co.uk>

p4raw-id: //depot/perl@6493

diff --git a/regexec.c b/regexec.c
index 7472d09..002b66a 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -641,7 +641,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
                       than for "\n", so one should lower the limit for t? */
                    DEBUG_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 - i_strpos)));
-                   strpos = s = t + 1;
+                   other_last = strpos = s = t + 1;
                    goto restart;
                }
                t++;

diff --git a/t/op/re_tests b/t/op/re_tests
index 421442d..8df1fc9 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -760,5 +760,6 @@ tt+$        xxxtt   y       -       -
 '(?!\A)x'm     a\nxb\n y       -       -
 ^(a(b)?)+$     aba     y       -$1-$2- -a--
 ^(aa(bb)?)+$   aabbaa  y       -$1-$2- -aa--
+'^.{9}abc.*\n'm        123\nabcabcabcabc\n     y       -       -
 ^(a)?a$        a       y       -$1-    --
 ^(a)?(?(1)a|b)+$       a       n       -       -