Parrot's Data::Dumper apparently requires boxed arguments.

Raku · Jul 7, 2011 · ebe6acb · ebe6acb
1 parent 0ae9745
commit ebe6acb
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/NQPMu.pm b/src/core/NQPMu.pm
@@ -63,13 +63,13 @@ my class NQPMu {
                 my $attrtype := $_.type;
                 print("\n", $subindent, $type.HOW.name($type), "::", $name, " => ");
                 if $attrtype eq 'int' {
-                    $dumper.'dump'($label, nqp::getattr_i(self, $type, $name));
+                    $dumper.'dump'($label, pir::box__Pi(nqp::getattr_i(self, $type, $name)));
                 }
                 elsif $attrtype eq 'num' {
-                    $dumper.'dump'($label, nqp::getattr_n(self, $type, $name));
+                    $dumper.'dump'($label, pir::box__Pn(nqp::getattr_n(self, $type, $name)));
                 }
                 elsif $attrtype eq 'str' {
-                    $dumper.'dump'($label, nqp::getattr_s(self, $type, $name));
+                    $dumper.'dump'($label, pir::box__Ps(nqp::getattr_s(self, $type, $name)));
                 }
                 else {
                     $dumper.'dump'($label, nqp::getattr(self, $type, $name));