Make dd() handle infinite lists

rakudo · Apr 17, 2015 · 039d27b · 039d27b
1 parent a95107d
commit 039d27b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/Any.pm b/src/core/Any.pm
@@ -843,12 +843,15 @@ sub DELETEKEY(Mu \d, str $key) {
 } #DELETEKEY
 
 
-sub dd (|) {
+sub dd(|) {
     my Mu $args := nqp::p6argvmarray();
     while $args {
         my $var  := nqp::shift($args);
         my $name := $var.VAR.?name;
-        note $name ?? "$name = $var.perl()" !! $var.perl
+        my $what := $var.?infinite
+          ?? $var[^10].perl.chop ~ "...Inf)"
+          !! $var.perl;
+        note $name ?? "$name = $what" !! $what;
     }
     return
 }