Fix :tree support for .^methods.

rakudo · Jun 9, 2009 · 86aeafb · 86aeafb
1 parent f80f12c
commit 86aeafb
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/parrot/ClassHOW.pir b/src/parrot/ClassHOW.pir
@@ -165,12 +165,11 @@ XXX Fix bugs with introspecting some built-in classes (List, Str...)
     if $I0 goto parent_it_loop
     cur_parent = getprop 'metaclass', cur_parent
     cur_parent = cur_parent.'WHAT'()
-    parent_methods = self.'methods'(cur_parent)
+    parent_methods = self.'methods'(cur_parent, adverbs :flat :named)
     if null tree goto not_tree
-    if tree goto flatten_done
+    unless tree goto not_tree
+    parent_methods = new 'Perl6Scalar', parent_methods
   not_tree:
-    parent_methods = parent_methods.'list'()
-  flatten_done:
     result_list.'push'(parent_methods)
     goto parent_it_loop
   parent_it_loop_end: