add missing file from change#1943

[p5sagit/p5-mst-13.2.git] / perly.y

diff --git a/perly.y b/perly.y
index e016cf4..47e6324 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -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 '(' ')'