From a2ef165ab24b7f3949c5cfa007a954607551ef53 Mon Sep 17 00:00:00 2001
From: Coke <will@coleda.com>
Date: Tue, 24 Aug 2010 12:56:12 -0400
Subject: [PATCH] make $::foo always refer to the top level HLL ns. pmichaud++

---
 src/Partcl/Actions.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Partcl/Actions.pm b/src/Partcl/Actions.pm
index bf0cadd..37e8bc5 100644
--- 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 {