From 36a5d4ba9c945f72bdafa667f8c54e774c2aeef0 Mon Sep 17 00:00:00 2001 From: Daniel Chetlin Date: Wed, 27 Dec 2000 07:55:32 -0800 Subject: Fix problem with `&' prototype Message-ID: <20001227155532.D9573@darkstar> p4raw-id: //depot/perl@8237 --- op.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'op.c') 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)) { -- cgit v1.2.1