lookup %*ENV for %ENV

rakudo-p5 · Apr 11, 2013 · cfff2db · cfff2db
1 parent c3d49d8
commit cfff2db
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -350,7 +350,9 @@ role STD5 {
                         $BLOCK[0].push(QAST::Op.new(
                             :op('bind'),
                             $lex,
-                            $*W.symbol_lookup([$name], $/, :package_only(1), :lvalue(1))));
+                            $name eq '%ENV' ?? QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('%*ENV'))
+                                            !! $*W.symbol_lookup([$name], $/, :package_only(1), :lvalue(1))
+                        ));
                     }
                 }
                 else {