[perl #112868] [BUG] .split doesn't include an empty string before a first literal zero-length string in Rakudo

[Will Coleda via RT]

On Mon May 14 08:26:13 2012, KyleHa wrote:
> I've added a test in S32-str/split-simple.t

Here's a patch:

diff --git a/src/core/Str.pm b/src/core/Str.pm
index c81f371..629d2ae 100644
--- a/src/core/Str.pm
+++ b/src/core/Str.pm
@@ -719,7 +719,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
         my $done = 0;
         if $match-string eq "" {
             my $chars = self.chars;
-            map {
+            ("", (map {
                 last if $done;

                 if --$chars and --$l {
@@ -729,7 +729,9 @@ my class Str does Stringy { # declared in BOOTSTRAP
                     $done = 1;
                     self.substr($c);
                 }
-            }, 1 .. $l;
+            }, 1 .. $l
+            ), "").flat
+
         }
         else {
             my $width = $match-string.chars;

But this causes several tests to fail, most of which anticipate that there is 
no leading or trailing empty string.
-- 
Will "Coke" Coleda