diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp index 8c9e5241e3b..c570f5737cb 100644 --- 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, :scope ); + while $i < $m { + $past := QAST::Op.new( :op, :name, + QAST::Op.new( :op, $past ), + QAST::SVal.new(:value(@name[$i])) + ); + $i := $i + 1 + } + } else { $past := instantiated_type(@name, $/); }