This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[5.005_50 PATCH] misprint in RE engine
authorIlya Zakharevich <ilya@math.berkeley.edu>
Thu, 30 Jul 1998 19:23:56 +0000 (15:23 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 8 Aug 1998 22:21:52 +0000 (22:21 +0000)
Message-Id: <199807302323.TAA21175@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1761

regexec.c
t/op/re_tests

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;          
index a5295f5..798355a 100644 (file)
@@ -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