Tentatively unbreak parrot / jvm builds

rakudo · Dec 16, 2014 · 1785eaf · 1785eaf
1 parent 19f661f
commit 1785eaf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/ClassHOW.nqp b/src/Perl6/Metamodel/ClassHOW.nqp
@@ -145,7 +145,8 @@ class Perl6::Metamodel::ClassHOW
         }
 
         # If there's a FALLBACK method, register something to forward calls to it.
-        if self.find_method($obj, 'FALLBACK', :no_fallback) -> $FALLBACK {
+        my $FALLBACK := self.find_method($obj, 'FALLBACK', :no_fallback);
+        if !nqp::isnull($FALLBACK) && nqp::defined($FALLBACK) {
             self.add_fallback($obj,
                 sub ($obj, str $name) {
                     $name ne 'sink' && $name ne 'invoke' && $name ne 'postcircumfix:<( )>'