diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-13 18:51:48 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-15 20:27:02 -0700 |
| commit | d26376f0cba86f87a4770b29227457e5c2b4a1db (patch) | |
| tree | 838206f7e56f03b7de68535d340a7d0c7adcecf0 /op.c | |
| parent | 5c906035ffb6b2857a0f941a97ac9e7bb4126275 (diff) | |
| download | perl-d26376f0cba86f87a4770b29227457e5c2b4a1db.tar.gz | |
Remove OPpENTERSUB_NOMOD.
OPpENTERSUB_NOMOD was always set in combination with OPf_WANT_VOID
which is now used to not propagate the lvalue context, making
OPpENTERSUB_NOMOD redundant.
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -1759,8 +1759,6 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags) op_null(((LISTOP*)cUNOPo->op_first)->op_first);/* disable pushmark */ break; } - else if (o->op_private & OPpENTERSUB_NOMOD) - return o; else { /* lvalue subroutine call */ o->op_private |= OPpLVAL_INTRO |(OPpENTERSUB_INARGS * (type == OP_LEAVESUBLV)); @@ -2356,7 +2354,6 @@ S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp) op_append_elem(OP_LIST, op_prepend_elem(OP_LIST, pack, list(arg)), newSVOP(OP_METHOD_NAMED, 0, meth))); - imop->op_private |= OPpENTERSUB_NOMOD; /* Combine the ops. */ *imopsp = op_append_elem(OP_LIST, *imopsp, imop); |