diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-11-14 11:35:29 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-16 14:46:17 +0000 |
| commit | a759488c42337f2d751890dc78d770629879b394 (patch) | |
| tree | 8342df461ed96deaf63f5d83ed0a052f06c4b411 /regcomp.c | |
| parent | 07fcf8ff4a18d7bde9f6b306fe8bbb50d0153ff4 (diff) | |
| download | perl-a759488c42337f2d751890dc78d770629879b394.tar.gz | |
Re: [PATCH regcomp.[ch], regexp.h, pp_hot.c, t/op/re_tests] lazy $& and \Z fix
Message-ID: <Pine.GSO.4.21.0111141634020.16649-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@13048
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2016,6 +2016,8 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) r->reganch |= ROPT_EVAL_SEEN; if (RExC_seen & REG_SEEN_CANY) r->reganch |= ROPT_CANY_SEEN; + if (RExC_seen & REG_SEEN_SEOL) + r->reganch |= ROPT_SEOL_SEEN; Newz(1002, r->startp, RExC_npar, I32); Newz(1002, r->endp, RExC_npar, I32); PL_regdata = r->data; /* for regprop() */ @@ -2794,6 +2796,7 @@ tryagain: break; case 'Z': ret = reg_node(pRExC_state, SEOL); + RExC_seen |= REG_SEEN_SEOL; *flagp |= SIMPLE; nextchar(pRExC_state); break; |