summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>1998-12-12 17:10:12 -0800
committerGurusamy Sarathy <gsar@cpan.org>1999-02-07 13:38:31 +0000
commitb1524f1739a84392b9443982741b38ce39195b6c (patch)
treee39a0eff4f53ff1abe2efdeffad0d7b135c28f15 /perly.y
parent34184a49c8a0771dbea73b3f0519126fd5b22c2f (diff)
downloadperl-b1524f1739a84392b9443982741b38ce39195b6c.tar.gz
applied suggested patch; regen perly* and vms/perly*
Message-ID: <13939.26706.620683.846776@fre-76-120.reshall.berkeley.edu> Subject: [PATCH] Re: Suggestion for perlobj man page p4raw-id: //depot/perl@2823
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y4
1 files changed, 4 insertions, 0 deletions
diff --git a/perly.y b/perly.y
index 88eee99f3e..bef7d9a45f 100644
--- a/perly.y
+++ b/perly.y
@@ -357,6 +357,10 @@ listop : LSTOP indirob argexpr
append_elem(OP_LIST,
prepend_elem(OP_LIST, scalar($1), $5),
newUNOP(OP_METHOD, 0, $3))); }
+ | term ARROW method
+ { $$ = convert(OP_ENTERSUB, OPf_STACKED,
+ append_elem(OP_LIST, scalar($1),
+ newUNOP(OP_METHOD, 0, $3))); }
| METHOD indirob listexpr
{ $$ = convert(OP_ENTERSUB, OPf_STACKED,
append_elem(OP_LIST,