diff options
| author | David Mitchell <davem@iabyn.com> | 2011-11-01 13:57:50 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-12-19 15:06:03 +0000 |
| commit | 91e4b22f1b3f748831962a9fcef822e30495e274 (patch) | |
| tree | f6ee4d805120a6129cb55888a85502d9f2081cda /op.c | |
| parent | 7aef317cab9ff27fcd6141378ba1ffdda267e92b (diff) | |
| download | perl-91e4b22f1b3f748831962a9fcef822e30495e274.tar.gz | |
remove private flag 1 from OP_REGCOMP
When an OP_REGCOMP is hand-rolled, the op_private flags field is
set to 1. This has been so since 1993, but it is undocumented and appears
completely unused. So remove it.
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4457,7 +4457,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor) rcop->op_flags |= OPf_KIDS | ((PL_hints & HINT_RE_EVAL) ? OPf_SPECIAL : 0) | (reglist ? OPf_STACKED : 0); - rcop->op_private = 1; + rcop->op_private = 0; rcop->op_other = o; if (reglist) rcop->op_targ = pad_alloc(rcop->op_type, SVs_PADTMP); |