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

pmichaud · pmichaud · commit ebe6acbabea1 · 2011-07-06T23:18:02.000-05:00
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));

Original file line number	Diff line number	Diff line change
`@@ -63,13 +63,13 @@ my class NQPMu {`
`63`	`63`	`my $attrtype := $_.type;`
`64`	`64`	`print("\n", $subindent, $type.HOW.name($type), "::", $name, " => ");`
`65`	`65`	`if $attrtype eq 'int' {`
`66`		`- $dumper.'dump'($label, nqp::getattr_i(self, $type, $name));`
	`66`	`+ $dumper.'dump'($label, pir::box__Pi(nqp::getattr_i(self, $type, $name)));`
`67`	`67`	`}`
`68`	`68`	`elsif $attrtype eq 'num' {`
`69`		`- $dumper.'dump'($label, nqp::getattr_n(self, $type, $name));`
	`69`	`+ $dumper.'dump'($label, pir::box__Pn(nqp::getattr_n(self, $type, $name)));`
`70`	`70`	`}`
`71`	`71`	`elsif $attrtype eq 'str' {`
`72`		`- $dumper.'dump'($label, nqp::getattr_s(self, $type, $name));`
	`72`	`+ $dumper.'dump'($label, pir::box__Ps(nqp::getattr_s(self, $type, $name)));`
`73`	`73`	`}`
`74`	`74`	`else {`
`75`	`75`	`$dumper.'dump'($label, nqp::getattr(self, $type, $name));`