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

rakudo · Dec 2, 2012 · e2f2dc4 · e2f2dc4
1 parent 5481c6e
commit e2f2dc4
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/RolePunning.pm b/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)
         }