Explicitly numify a list in Metamodel/ClassHOW.pm,

rakudo · Mar 26, 2013 · 696b0f5 · 696b0f5
1 parent b972ca3
commit 696b0f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Metamodel/ClassHOW.pm b/src/Perl6/Metamodel/ClassHOW.pm
@@ -111,7 +111,7 @@ class Perl6::Metamodel::ClassHOW
         # building the MRO.
         my $was_composed := $!composed;
         unless $!composed {
-            if self.parents($obj, :local(1)) == 0 && self.has_default_parent_type && self.name($obj) ne 'Mu' {
+            if +self.parents($obj, :local(1)) == 0 && self.has_default_parent_type && self.name($obj) ne 'Mu' {
                 self.add_parent($obj, self.get_default_parent_type);
             }
             self.compute_mro($obj);