diff options
author | David Mitchell <davem@iabyn.com> | 2016-11-14 10:35:39 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-11-14 10:46:39 +0000 |
commit | 2e2d70f2b1c8c037ccde21d4de658efaa0008b49 (patch) | |
tree | 2619fb7e52629bac1aa8e7e72823efef538bd2f9 /op.c | |
parent | d3d326f25de908230e5230aca83f78017a4a136a (diff) | |
download | perl-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.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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 */ |