From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 12 Jan 2001 15:30:18 +0000 (+0000)
Subject: Mea culpa: I botched up Hugo's "Tw" bug fix when applying it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=803ff55641d8801318ea5097e11eee271b53a17a;p=p5sagit%2Fp5-mst-13.2.git

Mea culpa: I botched up Hugo's "Tw" bug fix when applying it.

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

diff --git a/regexec.c b/regexec.c
index c7d42cd..dca2a44 100644
--- a/regexec.c
+++ b/regexec.c
@@ -597,14 +597,14 @@ 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; /* Fix this later. --Hugo */
+		    other_last = last;
 		    s = HOP3c(t, 1, strend);
 		    goto restart;
 		}
 		else {
 		    DEBUG_r(PerlIO_printf(Perl_debug_log, " at offset %ld...\n",
 			  (long)(s - i_strpos)));
-		    other_last = s + 1;
+		    other_last = s; /* Fix this later. --Hugo */
 		    s = s1;
 		    if (t == strpos)
 			goto try_at_start;