diff options
| author | Daniel Chetlin <daniel@chetlin.com> | 2000-12-27 07:55:32 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 22:19:21 +0000 |
| commit | 36a5d4ba9c945f72bdafa667f8c54e774c2aeef0 (patch) | |
| tree | bfd5d7ad05b9e77cc0efde84ccc378718e2be526 /op.c | |
| parent | 3f8f46260df6761c2dfca5c829d94c03c274d7d7 (diff) | |
| download | perl-36a5d4ba9c945f72bdafa667f8c54e774c2aeef0.tar.gz | |
Fix problem with `&' prototype
Message-ID: <20001227155532.D9573@darkstar>
p4raw-id: //depot/perl@8237
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)) { |