Skip to content
Browse files

Fix LTA error on 'my &foo; multi foo() { }'.

  • Loading branch information...
1 parent e20d626 commit 75678776e776ca06e9f57a65565188abfeeb969d @jnthn jnthn committed Jun 9, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Perl6/Actions.nqp
View
2 src/Perl6/Actions.nqp
@@ -2119,7 +2119,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
}
# Ensure it's actually a dispatcher.
- unless $proto.is_dispatcher {
+ unless nqp::can($proto, 'is_dispatcher') && $proto.is_dispatcher {
$*W.throw($/, ['X', 'Redeclaration'],
what => 'routine',
symbol => ~$<deflongname>[0].ast,

0 comments on commit 7567877

Please sign in to comment.
Something went wrong with that request. Please try again.