From 01d7dedd2333c413fba5c5c5b8298d9dba5e97e8 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Fri, 17 Apr 2009 21:51:06 +0200
Subject: [PATCH] Revert "The sub form of split() expects the delimiter as
 second parameter"

The spec was also reverted, we just follow its lead...
---
 src/setting/Any-str.pm | 8 ++++++--
 t/01-sanity/07-split.t | 2 +-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
index 89967d49821..36fb9316358 100644
--- 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
index ac1ad90380c..895c3021c77 100644
--- 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" }