Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit e2f2dc436d9db2e425a9dec36fe8258d45581f7a 1 parent 5481c6e
Moritz Lenz moritz authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  src/Perl6/Metamodel/RolePunning.pm
3  src/Perl6/Metamodel/RolePunning.pm
View
@@ -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)
}
Please sign in to comment.
Something went wrong with that request. Please try again.