summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-11-14 10:35:39 +0000
committerDavid Mitchell <davem@iabyn.com>2016-11-14 10:46:39 +0000
commit2e2d70f2b1c8c037ccde21d4de658efaa0008b49 (patch)
tree2619fb7e52629bac1aa8e7e72823efef538bd2f9 /op.c
parentd3d326f25de908230e5230aca83f78017a4a136a (diff)
downloadperl-2e2d70f2b1c8c037ccde21d4de658efaa0008b49.tar.gz
eliminate OPpRUNTIME private PMOP flag
This flag was added in 5.004 and even then it didn't seem to be used for anything. It gets set and unset in various places, but is never tested. I'm not even sure what it was intended for.
Diffstat (limited to 'op.c')
-rw-r--r--op.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/op.c b/op.c
index 2c03d2904f..63a73eea94 100644
--- a/op.c
+++ b/op.c
@@ -10556,8 +10556,6 @@ Perl_ck_match(pTHX_ OP *o)
PERL_UNUSED_CONTEXT;
PERL_ARGS_ASSERT_CK_MATCH;
- if (o->op_type == OP_MATCH || o->op_type == OP_QR)
- o->op_private |= OPpRUNTIME;
return o;
}
@@ -11192,8 +11190,7 @@ Perl_ck_split(pTHX_ OP *o)
op_sibling_splice(kid, cLISTOPx(kid)->op_last, 0, sibs); /* and reattach */
OpTYPE_set(kid, OP_SPLIT);
kid->op_flags = (o->op_flags | (kid->op_flags & OPf_KIDS));
- assert(!(kid->op_private & ~OPpRUNTIME));
- kid->op_private = (o->op_private | (kid->op_private & OPpRUNTIME));
+ kid->op_private = o->op_private;
op_free(o);
o = kid;
kid = sibs; /* kid is now the string arg of the split */