Make dd output consistent for arrays and hashes

rakudo · Jan 5, 2022 · 59929f0 · 59929f0
1 parent 1b5c0b9
commit 59929f0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core.c/Any.pm6 b/src/core.c/Any.pm6
@@ -593,8 +593,9 @@ sub dd(|c) {  # is implementation-detail
         while $args {
             my $var  := nqp::shift($args);
             my $name := ! nqp::istype($var.VAR, Failure) && try $var.VAR.name;
+            $name := '@' if $name eq 'element';
             my $type := $var.WHAT.^name.split("::").tail;
-            $type := $type.chop if $name && $name.starts-with('@' | '%');
+            $type := $type.chop if $type.contains(/ \W $ /);
             my $what := nqp::can($var,'raku')
               ?? $var.raku
               !! nqp::can($var,'perl')