diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-06-27 12:58:57 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-06-27 11:12:43 +0000 |
| commit | e348be647728276e631aaeacbb83b6583aa52129 (patch) | |
| tree | 3a6f4eb779af120456f3320fa600519b14438efd /op.c | |
| parent | 1f98619cb62cbdba0c065a08db3a473f792b731c (diff) | |
| download | perl-e348be647728276e631aaeacbb83b6583aa52129.tar.gz | |
Re: [ID 20020626.011] wantarray() causes clobbering of unrelated vars outside the sub
Message-ID: <200206271058.g5RAwvE29057@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17369
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3900,6 +3900,8 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp) } } 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 @@ -3995,6 +3997,8 @@ Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *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); } |