diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-27 10:09:46 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-27 10:09:46 +0000 |
| commit | 850e851687c46990a59eb0bed2e5e3dc49703472 (patch) | |
| tree | e489796c4a1c0c91781bc1f2f1b53f618000a9e5 /perly.y | |
| parent | d6a985f2bb09f0fd197b7c4af4b2d8913ce7f573 (diff) | |
| download | perl-850e851687c46990a59eb0bed2e5e3dc49703472.tar.gz | |
Fix the overriding of CORE::do, just like change 25599
was fixing the overriding of CORE::require
p4raw-id: //depot/perl@25616
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -566,7 +566,7 @@ anonymous: '[' expr ']' /* Things called with "do" */ termdo : DO term %prec UNIOP /* do $filename */ - { $$ = dofile($2); } + { $$ = dofile($2, $1); } | DO block %prec '(' /* do { code */ { $$ = newUNOP(OP_NULL, OPf_SPECIAL, scope($2)); } | DO WORD '(' ')' /* do somesub() */ |