[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 (file)
--- 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 (file)
--- 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