diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 18:59:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 18:59:28 +0000 |
| commit | 1497789321a3812581136bb80750207bffc72afc (patch) | |
| tree | 13b6f42b71dab4c4cada0f6e081079706aa1c11f /regcomp.c | |
| parent | 77c8cf410d66a85c2c49a1156db76d3221824e47 (diff) | |
| download | perl-1497789321a3812581136bb80750207bffc72afc.tar.gz | |
Retract #13048: that introduced a malloc() (through savepvn())
to *every* m//, which killed the performance quite badly.
p4raw-id: //depot/perl@13079
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -2016,8 +2016,6 @@ 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() */ @@ -2796,7 +2794,6 @@ tryagain: break; case 'Z': ret = reg_node(pRExC_state, SEOL); - RExC_seen |= REG_SEEN_SEOL; *flagp |= SIMPLE; nextchar(pRExC_state); break; |