implement limit for Str.comb

rakudo · Jul 24, 2011 · b6150b2 · b6150b2
1 parent 0376f99
commit b6150b2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -242,10 +242,10 @@ my class Str does Stringy {
     multi method comb() {
         (^self.chars).map({self.substr($_, 1) });
     }
-    multi method comb(Regex $pat, :$match) {
+    multi method comb(Regex $pat, $limit = $Inf, :$match) {
         $match
-            ?? self.match(:g, $pat)
-            !! self.match(:g, $pat).map: { .Str }
+            ?? self.match(:g, :x(1..$limit), $pat)
+            !! self.match(:g, :x(1..$limit), $pat).map: { .Str }
     }