From: Daniel Chetlin <daniel@chetlin.com>
Date: Wed, 27 Dec 2000 15:55:32 +0000 (-0800)
Subject: Fix problem with `&' prototype
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36a5d4ba9c945f72bdafa667f8c54e774c2aeef0;p=p5sagit%2Fp5-mst-13.2.git

Fix problem with `&' prototype
Message-ID: <20001227155532.D9573@darkstar>

p4raw-id: //depot/perl@8237
---

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";
 
 ##