Add standard core test header to Test::Builder::Tester tests.

[perl5.git] / perly.y

diff --git a/perly.y b/perly.y
index e88add1..1d20b04 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -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() */