From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 30 Jul 1998 19:23:56 +0000 (-0400)
Subject: [5.005_50 PATCH] misprint in RE engine
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e680dc37b34060770f3573bebbd4e34de1c230e;p=p5sagit%2Fp5-mst-13.2.git

[5.005_50 PATCH] misprint in RE engine

	Message-Id: <199807302323.TAA21175@monk.mps.ohio-state.edu>

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

diff --git a/regexec.c b/regexec.c
index 17f1e1a..59aabdf 100644
--- a/regexec.c
+++ b/regexec.c
@@ -444,7 +444,7 @@ regexec_flags(register regexp *prog, char *stringarg, register char *strend,
 		s = HOP(s, -back_max);
 	    }
 	    else {
-		char *t = (last1 >= PL_bostr) ? HOP(last1, 1) : last + 1;
+		char *t = (last1 >= PL_bostr) ? HOP(last1, 1) : last1 + 1;
 
 		last1 = HOP(s, -back_min);
 		s = t;		
diff --git a/t/op/re_tests b/t/op/re_tests
index a5295f5..798355a 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -483,3 +483,4 @@ b\Z	a\nb\n	y	-	-
 b\z	a\nb\n	n	-	-
 b\Z	a\nb	y	-	-
 b\z	a\nb	y	-	-
+(^|x)(c)	ca	y	$2	c