compile EXPORT::ALL to EXPORT::<ALL>

This has the benefit that it does not blow up anymore. Resolves RT #118501.
rakudo · Nov 21, 2014 · 96b9a86 · 96b9a86
1 parent 849e3c1
commit 96b9a86
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -4475,6 +4475,18 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 # it's a sigilless param or variable
                 $past := make_variable_from_parts($/, @name, '', '', @name[0]);
             }
+            elsif +@name && @name[0] eq 'EXPORT' {
+                my int $i := 1;
+                my int $m := +@name;
+                $past     := QAST::Var.new( :name<EXPORT>, :scope<lexical> );
+                while $i < $m {
+                    $past := QAST::Op.new( :op<callmethod>, :name<package_at_key>,
+                        QAST::Op.new( :op<who>, $past ),
+                        QAST::SVal.new(:value(@name[$i]))
+                    );
+                    $i := $i + 1
+                }
+            }
             else {
                 $past := instantiated_type(@name, $/);
             }