Browse files

Don't explode over missing is_trusted; diakopter++.

  • Loading branch information...
1 parent 14e575b commit 2fca74a1aad5a8d8592944ebad3f6d8d1a020703 @jnthn jnthn committed Oct 16, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Perl6/Actions.pm
View
2 src/Perl6/Actions.pm
@@ -3273,7 +3273,7 @@ class Perl6::Actions is HLL::Actions {
my $name := @parts.pop;
if @parts {
my $methpkg := $*W.find_symbol(@parts);
- unless $methpkg.HOW.is_trusted($methpkg, $*PACKAGE) {
+ unless nqp::can($methpkg.HOW, 'is_trusted') && $methpkg.HOW.is_trusted($methpkg, $*PACKAGE) {
$*W.throw($/, ['X', 'Method', 'Private', 'Permission'],
:method( $name),
:source-package( $methpkg.HOW.name($methpkg)),

0 comments on commit 2fca74a

Please sign in to comment.