diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-23 13:36:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-23 12:57:18 +0000 |
| commit | bbe252da68db3f0a4d00844fdb5e30bf18a0828f (patch) | |
| tree | 63d46509865ffca1ff26e61ce7efa6aac36ee476 /op.c | |
| parent | b3123a6146c9098bd93ca1ae1f6d6d6744ef9c4b (diff) | |
| download | perl-bbe252da68db3f0a4d00844fdb5e30bf18a0828f.tar.gz | |
Cleanup regexp flags and structure
Message-ID: <9b18b3110611230336p3ce3b16du47cd5398dea8d873@mail.gmail.com>
p4raw-id: //depot/perl@29360
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3327,7 +3327,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg) if (curop == repl && !(repl_has_vars && (!PM_GETRE(pm) - || PM_GETRE(pm)->reganch & ROPT_EVAL_SEEN))) { + || PM_GETRE(pm)->extflags & RXf_EVAL_SEEN))) { pm->op_pmflags |= PMf_CONST; /* const for long enough */ pm->op_pmpermflags |= PMf_CONST; /* const for long enough */ prepend_elem(o->op_type, scalar(repl), o); |