From 36a5d4ba9c945f72bdafa667f8c54e774c2aeef0 Mon Sep 17 00:00:00 2001 From: Daniel Chetlin Date: Wed, 27 Dec 2000 07:55:32 -0800 Subject: [PATCH] Fix problem with `&' prototype Message-ID: <20001227155532.D9573@darkstar> p4raw-id: //depot/perl@8237 --- op.c | 2 ++ t/comp/proto.t | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/op.c b/op.c index e40d334..215b85c 100644 --- a/op.c +++ b/op.c @@ -2421,6 +2421,8 @@ Perl_prepend_elem(pTHX_ I32 type, OP *first, OP *last) if (type == OP_LIST) { /* already a PUSHMARK there */ first->op_sibling = ((LISTOP*)last)->op_first->op_sibling; ((LISTOP*)last)->op_first->op_sibling = first; + if (!(first->op_flags & OPf_PARENS)) + last->op_flags &= ~OPf_PARENS; } else { if (!(last->op_flags & OPf_KIDS)) { diff --git a/t/comp/proto.t b/t/comp/proto.t index 845843a..874ab44 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -19,7 +19,7 @@ BEGIN { use strict; -print "1..123\n"; +print "1..124\n"; my $i = 1; @@ -343,6 +343,7 @@ sub sub_array (&@) { @array = (qw(O K)," ", $i++); sub_array { lc shift } @array; +sub_array { lc shift } ('O', 'K', ' ', $i++); print "\n"; ## -- 2.7.4