fix codegen for call to &REQUIRE_IMPORT

rakudo · Jun 10, 2012 · 60a9808 · 60a9808
1 parent 3605d62
commit 60a9808
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -836,7 +836,8 @@ class Perl6::Actions is HLL::Actions {
              my $lexpad      := $*W.cur_lexpad();
              my $*SCOPE      := 'my';
              my $import_past := PAST::Op.new(:node($/), :pasttype<call>,
-                                :name<&REQUIRE_IMPORT>);
+                                :name<&REQUIRE_IMPORT>,
+                                $name_past);
              for $arglist {
                  my $symbol := nqp::unbox_s($_.Str());
                  $*W.throw($/, ['X', 'Redeclaration'], :$symbol)