make $::foo always refer to the top level HLL ns.

pmichaud++
partcl · Aug 24, 2010 · a2ef165 · a2ef165
1 parent 1f33ddf
commit a2ef165
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Partcl/Actions.pm b/src/Partcl/Actions.pm
@@ -177,7 +177,7 @@ method variable:sym<normal>($/) {
     my $variable;
     if $<global> {
        $variable := PAST::Var.new( :scope<keyed>,
-           PAST::Var.new( :name<%GLOBALS>, :scope<package> ),
+           PAST::Var.new( :name<%GLOBALS>, :scope<package>, :namespace([]) ),
            ~$<identifier>
        );
     } else {