From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 30 Oct 2000 01:33:26 +0000 (+0000)
Subject: Re: [ID 20001029.005] Regex error: "cd. (A. Tw)" !~ /\((\w\. \w+)\)/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e36c9299e5be15e144ba340dadeda60948efca7;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20001029.005] Regex error: "cd. (A. Tw)" !~ /\((\w\. \w+)\)/
Message-Id: <200010300133.BAA10390@crypt.compulink.co.uk>

p4raw-id: //depot/perl@8403
---

diff --git a/regexec.c b/regexec.c
index 5990ea3..c7d42cd 100644
--- a/regexec.c
+++ b/regexec.c
@@ -597,7 +597,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 		    DEBUG_r(PerlIO_printf(Perl_debug_log,
 			", trying anchored starting at offset %ld...\n",
 			(long)(s1 + 1 - i_strpos)));
-		    other_last = last + 1;
+		    other_last = last; /* Fix this later. --Hugo */
 		    s = HOP3c(t, 1, strend);
 		    goto restart;
 		}
diff --git a/t/op/re_tests b/t/op/re_tests
index 52666da..1090e11 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -781,3 +781,4 @@ tt+$	xxxtt	y	-	-
 ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))?	012cxx0190	y	-	-
 ^(b+?|a){1,2}c	bbbac	y	$1	a
 ^(b+?|a){1,2}c	bbbbac	y	$1	a
+\((\w\. \w+)\)	cd. (A. Tw)	y	-$1-	-A. Tw-