perl 5.003_01: lib/File/Basename.pm

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

diff --git a/perly.y b/perly.y
index 099969f..96a35e1 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -453,8 +453,7 @@ term        :       term ASSIGNOP term
                            append_elem(OP_LIST, $3, scalar($1))); }
        |       NOAMP WORD listexpr
                        { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
-                           append_elem(OP_LIST,
-                               $3, newCVREF(0,scalar($2)))); }
+                           append_elem(OP_LIST, $3, scalar($2))); }
        |       DO term %prec UNIOP
                        { $$ = newUNOP(OP_DOFILE, 0, scalar($2)); }
        |       DO block        %prec '('