move token @inc into EXPORT sub of Perl5::Terms

We bind special variables to the hash which gets exported, and do the same technique for the English and Config module.
rakudo-p5 · May 15, 2013 · 3355a22 · 3355a22
1 parent a88e1a0
commit 3355a22
Show file tree

Hide file tree

Showing 6 changed files with 1,233 additions and 63 deletions.
diff --git a/STATUS.md b/STATUS.md
diff --git a/lib/Perl5/Actions.nqp b/lib/Perl5/Actions.nqp
@@ -1272,15 +1272,6 @@ class Perl5::Actions is HLL::Actions does STDActions {
         @*UNQUOTE_ASTS.push($<statementlist>.ast);
     }
 
-    method special_variable:sym<@INC>($/) {
-        $V5DEBUG && say("special_variable:sym<\@INC>($/)");
-
-        make QAST::Op.new( :op('callmethod'), :name('at_key'),
-            QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('%*CUSTOM_LIB') ),
-            QAST::SVal.new( :value('Perl5') )
-        );
-    }
-
     method special_variable:sym<$0>($/) {
         $V5DEBUG && say("special_variable:sym<\$0>($/)");
         make QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('$*PROGRAM_NAME'))
@@ -1300,7 +1291,7 @@ class Perl5::Actions is HLL::Actions does STDActions {
 
     method special_variable:sym<$/>($/) {
         $V5DEBUG && say("special_variable:sym<\$/>($/)");
-        make QAST::Op.new( :op('call'), :name('&INPUT_RECORD_SEPARATOR') )
+        make QAST::Op.new( :op('call'), :name('&DYNAMIC'), $*W.add_string_constant('$*INPUT_RECORD_SEPARATOR'))
     }
 
     method special_variable:sym<$~>($/) {