work around Rakudo bugs to get Str.split working

rakudo · Feb 23, 2009 · 1fe71b8 · 1fe71b8
1 parent 215ad17
commit 1fe71b8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/setting/Any.pm b/src/setting/Any.pm
@@ -1,5 +1,5 @@
 class Any is also {
-    method split($delimiter, Int $limit = *) {
+    method split($delimiter, $limit = *) {
         if $limit ~~ Whatever {
             return (~self).split($delimiter);
         } else {

diff --git a/src/setting/Str.pm b/src/setting/Str.pm
@@ -19,13 +19,15 @@ class Str is also {
         self.split($delimiter).[0..$limit];
     }
 
-    # TODO: substitute with $delimiter as Str once coercion is implemented
+    # TODO: substitute with '$delimiter as Str' once coercion is implemented
     our List multi method split($delimiter is copy) {
         my Int $prev = 0;
         $delimiter = ~$delimiter;
         return gather {
             my $pos;
-            while defined ($pos = self.index($delimiter, $prev)) {
+            # work around a rakudo bug: "102030405".index(0, 10).defined is True
+            while $prev <= self.chars 
+                  && defined ($pos = self.index($delimiter, $prev)) {
                 take self.substr($prev, $pos - $prev);
                 $prev = $pos + $delimiter.chars;
             }