Eliminate a mention of $*PACKAGE-SETUP, which it's now time to start …

…finally killing.
Raku · May 1, 2011 · 811d9a5 · 811d9a5
1 parent b6e14db
commit 811d9a5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -1026,7 +1026,7 @@ class NQP::Actions is HLL::Actions {
             $regex.name($name);
             my $prefix_meth;
 
-            if pir::defined($*PACKAGE-SETUP) {
+            if $*PKGDECL && pir::can($*PACKAGE.HOW, 'add_method') {
                 # Add the actual method.
                 $*SC.pkg_add_method($*PACKAGE, 'add_method', $name, $regex, 0);
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -25,6 +25,7 @@ grammar NQP::Grammar is HLL::Grammar {
 
         my $*SCOPE       := '';
         my $*MULTINESS   := '';
+        my $*PKGDECL     := '';
         my $*INVOCANT_OK := 0;
         my $*RETURN_USED := 0;
         my $*PACKAGE-SETUP;