From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 2 Aug 2000 14:53:56 +0000 (+0100)
Subject: [ID 20000731.010] regex error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e41cd871c178c65afa4b4a7cea4d1df2def8588;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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	-	-