Str.split used to ignore limits while splitting on the empty string. …

…Corrected that
rakudo · Mar 22, 2009 · 28a2792 · 28a2792
1 parent eefb89f
commit 28a2792
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
@@ -46,7 +46,10 @@ class Any is also {
         my $s = ~self;
         if $delimiter eq '' {
             return gather {
-                take $s.substr($_, 1) for 0 .. $s.chars - 1;
+                take $s.substr($_, 1) for 0 .. ($s.chars - 1 min $l - 2);
+                if $l <= $s.chars {
+                    take $s.substr($l - 1 );
+                };
             }
         }
         return gather {