Make a string copy of ~self to work with in Cool.comb, so that repeat…

…ed calls to .match do not do ~self internally each time.
rakudo · Jan 14, 2011 · 9f6a678 · 9f6a678
1 parent 89ff888
commit 9f6a678
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -55,9 +55,10 @@ augment class Cool {
     }
 
     multi method comb(Regex $matcher = /./, $limit = *, :$match) {
+        my $self-string = ~self;
         my $c = 0;
         my $l = $limit ~~ ::Whatever ?? Inf !! $limit;
-        gather while $l > 0 && (my $m = self.match($matcher, :c($c))) {
+        gather while $l > 0 && (my $m = $self-string.match($matcher, :c($c))) {
             if $match {
                 my $m-clone = $m;
                 take $m-clone;