summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorRobin Houston <robin@cpan.org>2001-03-24 14:33:09 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-03-24 16:22:33 +0000
commitb80b6069675e4e4c5169294fdad71ea1b2b85824 (patch)
tree2a1226beaaee30000b660e56be5f41fd13e3a442 /op.c
parentac5fe96247f4a41c9f94d27f22ec6c765f5c05be (diff)
downloadperl-b80b6069675e4e4c5169294fdad71ea1b2b85824.tar.gz
Re: B::Deparse bug (5.6.0)
Message-ID: <20010324143309.B17734@puffinry.freeserve.co.uk> p4raw-id: //depot/perl@9325
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/op.c b/op.c
index 59643e78b1..87ee1af9c2 100644
--- a/op.c
+++ b/op.c
@@ -977,8 +977,6 @@ Perl_scalar(pTHX_ OP *o)
switch (o->op_type) {
case OP_REPEAT:
- if (o->op_private & OPpREPEAT_DOLIST)
- null(((LISTOP*)cBINOPo->op_first)->op_first);
scalar(cBINOPo->op_first);
break;
case OP_OR: