diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2002-01-06 10:36:21 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-07 13:48:06 +0000 |
| commit | e09294f4235f3caccd813dfa233412a6da07191e (patch) | |
| tree | 5f8cb87bb9431e297c96eeebf5bf21d644c39a0b /regcomp.c | |
| parent | c728cb41064fc29351e896c61d746060cee08d64 (diff) | |
| download | perl-e09294f4235f3caccd813dfa233412a6da07191e.tar.gz | |
leading (.*) should not be implicitly ^'d
Message-ID: <Pine.GSO.4.21.0201061532400.27018-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@14115
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1848,7 +1848,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) first = NEXTOPER(first); goto again; } - else if ((OP(first) == STAR && + else if (!sawopen && (OP(first) == STAR && PL_regkind[(U8)OP(NEXTOPER(first))] == REG_ANY) && !(r->reganch & ROPT_ANCH) ) { |