diff options
author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-30 15:23:56 -0400 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-08 22:21:52 +0000 |
commit | 8e680dc37b34060770f3573bebbd4e34de1c230e (patch) | |
tree | a8b509f692f61cc097b2271571e0b064e6f50da6 | |
parent | 84df6dbaac5dcce30923bafc61c52f3ffa1b669b (diff) | |
download | perl-8e680dc37b34060770f3573bebbd4e34de1c230e.tar.gz |
[5.005_50 PATCH] misprint in RE engine
Message-Id: <199807302323.TAA21175@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1761
-rw-r--r-- | regexec.c | 2 | ||||
-rw-r--r-- | t/op/re_tests | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -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 a5295f5aae..798355a95c 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 |