From 0e41cd871c178c65afa4b4a7cea4d1df2def8588 Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Wed, 2 Aug 2000 15:53:56 +0100 Subject: [PATCH] [ID 20000731.010] regex error Message-Id: <200008021353.OAA24761@crypt.compulink.co.uk> p4raw-id: //depot/perl@6493 --- regexec.c | 2 +- t/op/re_tests | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index 7472d09..002b66a 100644 --- 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 --- 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 - - -- 2.7.4