fix "cannot have attributes" error message for the mainline. jnthn++

rakudo · Oct 29, 2011 · 40f181b · 40f181b
1 parent 9c6aedb
commit 40f181b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1229,7 +1229,11 @@ class Perl6::Actions is HLL::Actions {
         if $*SCOPE eq 'has' {
             # Ensure current package can take attributes.
             unless pir::can($*PACKAGE.HOW, 'add_attribute') {
-                $/.CURSOR.panic("A $*PKGDECL cannot have attributes");
+                if $*PKGDECL {
+                    $/.CURSOR.panic("A $*PKGDECL cannot have attributes");
+                } else {
+                    $/.CURSOR.panic("You can't declare an attribute here; maybe you'd like a class or a role?");
+                }
             }
 
             # Create container descriptor and decide on any default value..