Avoid internal error with my $.foo at top level (fixes #126)

sorear · May 25, 2012 · 9615535 · 9615535
1 parent 026b805
commit 9615535
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/NieczaActions.pm6 b/src/NieczaActions.pm6
@@ -2825,6 +2825,10 @@ method multi_declarator:only  ($/) { make ($<declarator> // $<routine_def>).ast}
 
 method add_accessor($/, $name, $store_name, $lexical, $public) {
     my $ns = $*CURLEX<!sub>.body_of;
+    if !$ns || !$ns.CAN('add_method') {
+        $/.CURSOR.sorry("Cannot add accessors to a non-class");
+        return;
+    }
     my $nb = $*unit.create_sub(
         outer      => $*CURLEX<!sub>,
         name       => $name,