Permalink
Browse files

fix nqp::can(role { }, "anything"). jnthn++

  • Loading branch information...
1 parent 5481c6e commit e2f2dc436d9db2e425a9dec36fe8258d45581f7a @moritz moritz committed Dec 2, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/Perl6/Metamodel/RolePunning.pm
@@ -43,6 +43,9 @@ role Perl6::Metamodel::RolePunning {
$!pun := self.make_pun($obj);
$!made_pun := 1;
}
+ unless nqp::can($!pun, $name) {
+ return nqp::null();
+ }
-> $inv, *@pos, *%named {
$!pun."$name"(|@pos, |%named)
}

0 comments on commit e2f2dc4

Please sign in to comment.