summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-07-07 22:08:48 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-07-07 22:08:48 +0000
commitee027f1d663256f1223632e02ff1c8835809ce91 (patch)
tree5ac9a74dfae91fbe5e0f523acaa2bbbeb0ddd19f /regexec.c
parent4b154ab5f602806ac0f12a58e6d35daf8689fea5 (diff)
downloadperl-ee027f1d663256f1223632e02ff1c8835809ce91.tar.gz
fix accidental RE-de-optimization
From: larry@wall.org (Larry Wall) Date: Mon, 6 Jul 1998 17:49:31 -0700 Message-Id: <199807070049.RAA23475@wall.org> Subject: Re: before you deluge us with patches -- From: Ilya Zakharevich <ilya@math.ohio-state.edu> Date: Tue, 7 Jul 1998 03:10:56 -0400 (EDT) Message-Id: <199807070710.DAA25399@monk.mps.ohio-state.edu> Subject: Re: before you deluge us with patches p4raw-id: //depot/perl@1359
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 6efc93ce77..77b9f2d8d2 100644
--- a/regexec.c
+++ b/regexec.c
@@ -782,7 +782,7 @@ regmatch(regnode *prog)
switch (OP(scan)) {
case BOL:
- if (locinput == regbol
+ if (locinput == bostr
? regprev == '\n'
: (multiline &&
(nextchr || locinput < regeol) && locinput[-1] == '\n') )
@@ -792,7 +792,7 @@ regmatch(regnode *prog)
}
sayNO;
case MBOL:
- if (locinput == regbol
+ if (locinput == bostr
? regprev == '\n'
: ((nextchr || locinput < regeol) && locinput[-1] == '\n') )
{