Fix Str.samespace (and with it ss///)

rakudo · Apr 13, 2014 · e13671e · e13671e
1 parent e498597
commit e13671e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -769,8 +769,8 @@ my class Str does Stringy { # declared in BOOTSTRAP
     }
 
     method samespace(Str:D: Str:D $pat) {
-        my @self-chunks  = self.split(rx/\s+/, :all);
-        my @pat-chunks  := $pat.split(rx/\s+/, :all);
+        my @self-chunks  = self.split(rx/\s+/, :all).flat;
+        my @pat-chunks  := $pat.split(rx/\s+/, :all).flat;
         loop (my $i = 1; $i < @pat-chunks && $i < @self-chunks; $i += 2) {
             @self-chunks[$i] = @pat-chunks[$i];
         }