Ensure import, use and need return something (Nil for now), so we don…

…'t get IMCC errors if you try and use the result of the use statement for something.
rakudo · Oct 19, 2011 · 433839e · 433839e
1 parent 07b9b00
commit 433839e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -653,20 +653,20 @@ class Perl6::Actions is HLL::Actions {
     }
 
     method statement_control:sym<need>($/) {
-        my $past := PAST::Stmts.new( :node($/) );
+        my $past := PAST::Var.new( :name('Nil'), :scope('lexical') );
         for $<version> {
             # XXX TODO: Version checks.
         }
         make $past;
     }
 
     method statement_control:sym<import>($/) {
-        my $past := PAST::Stmts.new( :node($/) );
+        my $past := PAST::Var.new( :name('Nil'), :scope('lexical') );
         make $past;
     }
 
     method statement_control:sym<use>($/) {
-        my $past := PAST::Stmts.new( :node($/) );
+        my $past := PAST::Var.new( :name('Nil'), :scope('lexical') );
         if $<version> {
             # TODO: replace this by code that doesn't always die with
             # a useless error message
@@ -696,7 +696,7 @@ class Perl6::Actions is HLL::Actions {
                         :name('True'),
                         :namespace(['Bool']),
                         :scope('package'),
-                    ),
+                    )
                 );
             }
             elsif ~$<module_name> eq 'FORBID_PIR' {