diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-07 22:08:48 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-07 22:08:48 +0000 |
commit | ee027f1d663256f1223632e02ff1c8835809ce91 (patch) | |
tree | 5ac9a74dfae91fbe5e0f523acaa2bbbeb0ddd19f /regexec.c | |
parent | 4b154ab5f602806ac0f12a58e6d35daf8689fea5 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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') ) { |