Clone the returned match so we can take it without worrying about the…

… next iteration clobbering it.
rakudo · Apr 28, 2010 · 72f914f · 72f914f
1 parent 6a502fc
commit 72f914f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -72,7 +72,8 @@ augment class Cool {
             gather {
                 while $l-- > 0 && (my $m = self.match($matcher, :c($c))) {
                     take self.substr($c, $m.from - $c);
-                    take $m if $all;
+                    my $m-clone = $m;
+                    take $m-clone if $all;
                     $c = $m.to == $c ?? $c + 1 !! $m.to;
                 }
                 take self.substr($c);