Revert "The sub form of split() expects the delimiter as second param…

…eter" The spec was also reverted, we just follow its lead...
rakudo · Apr 17, 2009 · 01d7ded · 01d7ded
1 parent ecca702
commit 01d7ded
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
@@ -50,7 +50,7 @@ class Any is also {
         $char
     }
 
-    our List multi method split(Code $delimiter, $limit = *) is export {
+    our List multi method split(Code $delimiter, $limit = *) {
         my $s = ~self;
         my $l = $limit ~~ Whatever ?? Inf !! $limit;
         my $keep = '';
@@ -75,7 +75,7 @@ class Any is also {
     }
 
     # TODO: substitute with '$delimiter as Str' once coercion is implemented
-    our List multi method split($delimiter, $limit = *) is export {
+    our List multi method split($delimiter, $limit = *) {
         my Int $prev = 0;
         my $l = $limit ~~ Whatever ?? Inf !! $limit;
         my $s = ~self;
@@ -135,6 +135,10 @@ class Any is also {
     }
 }
 
+multi sub split($delimiter, $target, $limit = *) {
+    $target.split($delimiter, $limit);
+}
+
 # TODO: '$filename as Str' once support for that is in place
 multi sub lines(Str $filename,
                 :$bin = False,

diff --git a/t/01-sanity/07-split.t b/t/01-sanity/07-split.t
@@ -4,7 +4,7 @@ use v6;
 say "1..4";
 
 my $string = "foo!bar!baz";
-my @array  = split $string, '!';
+my @array  = split "!", $string;
 
 if @array[0] eq "foo" { say "ok 1" } else { say "not ok 1" }
 if @array[1] eq "bar" { say "ok 2" } else { say "not ok 2" }