diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-03 05:19:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-03 05:19:56 +0000 |
| commit | 78ca652eaf12f3ab6d7714883eec614d257f666a (patch) | |
| tree | 6bbe81a261abeb34caf5651b686d45f2eb395c5f /perly.y | |
| parent | 39e216bc90d449c29ecedac1a04e0b8d579b806c (diff) | |
| download | perl-78ca652eaf12f3ab6d7714883eec614d257f666a.tar.gz | |
make C<use> recognize C<require> overrides; allow C<do EXPR> to be
overridden
p4raw-id: //depot/perl@1923
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -512,7 +512,7 @@ term : term ASSIGNOP term { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, append_elem(OP_LIST, $3, scalar($2))); } | DO term %prec UNIOP - { $$ = newUNOP(OP_DOFILE, 0, scalar($2)); } + { $$ = dofile($2); } | DO block %prec '(' { $$ = newUNOP(OP_NULL, OPf_SPECIAL, scope($2)); } | DO WORD '(' ')' |