Throw one more typed exception

rakudo · Feb 8, 2012 · 6ed624d · 6ed624d
1 parent 0711f9f
commit 6ed624d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1589,7 +1589,10 @@ class Perl6::Actions is HLL::Actions {
 
                 # Ensure it's actually a dispatcher.
                 unless $proto.is_dispatcher {
-                    $/.CURSOR.panic("Cannot declare a multi when an only is in scope");
+                    $*W.throw($/, ['X', 'Redeclaration'],
+                        what    => 'routine',
+                        symbol  => ~$<deflongname>[0].ast,
+                    );
                 }
 
                 # Install the candidate.