diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:46:35 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:46:35 +0000 |
| commit | cdaebead333273a920fe10cbcb2213a9fbefa241 (patch) | |
| tree | 16a4f7c9dca71b61211eac8a55ea494c5552a29b /perly.y | |
| parent | 49d8d3a1123fb996c090905424ed66f675b3df17 (diff) | |
| download | perl-cdaebead333273a920fe10cbcb2213a9fbefa241.tar.gz | |
More Chip patches (tweaked for _5x). The final one mentioned here
(@ARGV with -i) actually went in at change 462 but I failed to
add it to the change description:
Subject: [PATCH] Fix typo: "FORM{,AT}LINE"
Date: Sun, 11 Jan 1998 19:37:17 -0500 (EST)
Subject: [PATCH] Fix for C<@x = my @y>
Date: Sun, 11 Jan 1998 18:12:16 -0500 (EST)
Subject: [PATCH] Fix SEGV on C<*glob{SCALAR,ARRAY}>
Date: Thu, 5 Feb 1998 21:30:13 -0500 (EST)
Subject: [PATCH] Allow last() to mean last
Date: Thu, 5 Feb 1998 21:42:57 -0500 (EST)
Subject: [PATCH] Consider @ARGV to be plain files if inplace (-i)
Date: Wed, 4 Feb 1998 16:04:47 -0500 (EST)
p4raw-id: //depot/perl@465
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -439,7 +439,8 @@ term : term ASSIGNOP term | scalar %prec '(' { $$ = $1; } | star '{' expr ';' '}' - { $$ = newBINOP(OP_GELEM, 0, newGVREF(0,$1), $3); } + { $$ = newBINOP(OP_GELEM, 0, newGVREF(0,$1), + scalar($3)); } | star %prec '(' { $$ = $1; } | scalar '[' expr ']' %prec '(' |