diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-07-08 18:00:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-08 19:10:29 +0000 |
| commit | d2ccd3cbfc4a43ae3c17071c87b4d721f3560ad6 (patch) | |
| tree | 1f3080e231cce7fcedc0016a3a3ce890a87276d2 /op.c | |
| parent | 9f3698943a90afb22c82bdcf1624daed197996c5 (diff) | |
| download | perl-d2ccd3cbfc4a43ae3c17071c87b4d721f3560ad6.tar.gz | |
Re: [ID 20020626.011] wantarray() causes clobbering of unrelated vars outside the sub
Message-Id: <200207081600.g68G0Xw07553@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17423
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 14 |
1 files changed, 0 insertions, 14 deletions
@@ -3899,14 +3899,6 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp) return first; } } - else if (first->op_type == OP_WANTARRAY) { - /* XXX true only if this result will be returned, else should - propagate outer context */ - if (type == OP_AND) - list(other); - else - scalar(other); - } else if (ckWARN(WARN_MISC) && (first->op_flags & OPf_KIDS)) { OP *k1 = ((UNOP*)first)->op_first; OP *k2 = k1->op_sibling; @@ -3996,12 +3988,6 @@ Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *falseop) return falseop; } } - else if (first->op_type == OP_WANTARRAY) { - /* XXX true only if this result will be returned, else should - propagate outer context */ - list(trueop); - scalar(falseop); - } NewOp(1101, logop, 1, LOGOP); logop->op_type = OP_COND_EXPR; logop->op_ppaddr = PL_ppaddr[OP_COND_EXPR]; |