2 files changed, 4 insertions, 1 deletions
diff --git a/op.c b/op.c
index e40d3343ff..215b85ca7e 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 845843ad64..874ab44058 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";
 
 ##