fix default value check in moarvm binder, unbusts Rat.

rakudo · Jan 3, 2014 · 7f8a180 · 7f8a180
1 parent b7e8ae0
commit 7f8a180
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.nqp b/src/Perl6/Metamodel/BOOTSTRAP.nqp
@@ -513,7 +513,7 @@ my class Binder {
         }
 
         # Do we have a default value or value closure?
-        elsif (my $default_value := nqp::getattr($param, Parameter, '$!default_value')) {
+        elsif !nqp::isnull(my $default_value := nqp::getattr($param, Parameter, '$!default_value')) {
             if $flags +& $SIG_ELEM_DEFAULT_IS_LITERAL {
                 $default_value;
             }