diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2000-01-05 10:23:18 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-05 20:52:50 +0000 |
| commit | d506a20dca04253441c06a876baccc8c83469e95 (patch) | |
| tree | 6778a5b2b4896c64ed63ec22e02ffe40ece65e1a /regexec.c | |
| parent | 1c74f1bd35770c573375e31cfb53d48d3ef6b920 (diff) | |
| download | perl-d506a20dca04253441c06a876baccc8c83469e95.tar.gz | |
Re: minimal m//g matches appear busted
Message-Id: <20000105152318.A7400@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@4759
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -639,7 +639,10 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, /* Even in this situation we may use MBOL flag if strpos is offset wrt the start of the string. */ if (ml_anch && sv - && (strpos + SvCUR(sv) != strend) && strpos[-1] != '\n') { + && (strpos + SvCUR(sv) != strend) && strpos[-1] != '\n' + /* May be due to an implicit anchor of m{.*foo} */ + && !(prog->reganch & ROPT_IMPLICIT)) + { t = strpos; goto find_anchor; } |