summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-05-31 05:05:42 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-05-31 05:05:42 +0000
commitc2a735686052c4e782e029afd2945461349272c6 (patch)
tree03d1a8afd63a583a3ab2457c8c43da04794c8d58 /regexec.c
parentd64830355c411305652aeae96623a3ca530d6d38 (diff)
downloadperl-c2a735686052c4e782e029afd2945461349272c6.tar.gz
fix buggy multiline matching of C<"a\nxb\n" =~ /(?!\A)x/m>
(from Ilya Zakharevich) p4raw-id: //depot/perl@6172
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 1ae93150d6..49a081f68c 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1881,7 +1881,7 @@ S_regmatch(pTHX_ regnode *prog)
}
sayNO;
case SBOL:
- if (locinput == PL_regbol && PL_regprev == '\n')
+ if (locinput == PL_bostr)
break;
sayNO;
case GPOS: