diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2004-04-07 21:33:13 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2004-04-07 21:33:13 +0000 |
| commit | 0483bc835ac9d7a98c6221c31164adab28d45012 (patch) | |
| tree | 4c0792a10e62acfdd0c306897722ecb5fd30821b /gnu/usr.bin/perl/perly.y | |
| parent | 06b4a8c77def9992257264115d36deba7767935f (diff) | |
merge local changes into perl-5.8.3
Diffstat (limited to 'gnu/usr.bin/perl/perly.y')
| -rw-r--r-- | gnu/usr.bin/perl/perly.y | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/perly.y b/gnu/usr.bin/perl/perly.y index f87f5815646..3325e5e24b3 100644 --- a/gnu/usr.bin/perl/perly.y +++ b/gnu/usr.bin/perl/perly.y @@ -477,7 +477,8 @@ method : METHOD subscripted: star '{' expr ';' '}' /* *main::{something} */ /* In this and all the hash accessors, ';' is * provided by the tokeniser */ - { $$ = newBINOP(OP_GELEM, 0, $1, scalar($3)); } + { $$ = newBINOP(OP_GELEM, 0, $1, scalar($3)); + PL_expect = XOPERATOR; } | scalar '[' expr ']' /* $array[$element] */ { $$ = newBINOP(OP_AELEM, 0, oopsAV($1), scalar($3)); } | term ARROW '[' expr ']' /* somearef->[$element] */ |