dispatch @inc to @*INC

rakudo-p5 · Apr 2, 2013 · bb0fa8e · bb0fa8e
1 parent 3d2cd1a
commit bb0fa8e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/lib/Perl6/P5Actions.pm b/lib/Perl6/P5Actions.pm
@@ -1300,6 +1300,11 @@ class Perl6::P5Actions is HLL::Actions does STDActions {
         @*UNQUOTE_ASTS.push($<statementlist>.ast);
     }
 
+    method special_variable:sym<@INC>($/) {
+        $DEBUG && say("special_variable:sym<\@INC>($/)");
+        make QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('@*INC'))
+    }
+
     method special_variable:sym<$0>($/) {
         $DEBUG && say("special_variable:sym<\$0>($/)");
         make QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('$*PROGRAM_NAME'))

diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -2114,6 +2114,10 @@ grammar Perl6::P5Grammar is HLL::Grammar does STD5 {
         '-'?<key=identifier> <?before \h* '=>' >
     }
 
+    token special_variable:sym<@INC> {
+        <sym>
+    }
+
     token special_variable:sym<$0> {
         <sym> | '$PROGRAM_NAME'
     }