Make dd first test for .raku, then .perl

rakudo · Jan 22, 2020 · 86a771a · 86a771a
1 parent b7a63a5
commit 86a771a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core.c/Any.pm6 b/src/core.c/Any.pm6
@@ -596,9 +596,11 @@ sub dd(|) {
             my $var  := nqp::shift($args);
             my $name := ! nqp::istype($var.VAR, Failure) && try $var.VAR.name;
             my $type := $var.WHAT.^name.split("::").tail;
-            my $what := nqp::can($var,'perl')
+            my $what := nqp::can($var,'raku')
               ?? $var.raku
-              !! "($var.^name() without .raku method)";
+              !! nqp::can($var,'perl')
+                ?? $var.perl
+                !! "($var.^name() without .raku or .perl method)";
             note $name ?? "$type $name = $what" !! $what;
         }
     }