Allow :x(*) in subst.

sorear · Dec 21, 2011 · c184ec8 · c184ec8
1 parent 7585370
commit c184ec8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -426,8 +426,8 @@ my class Cool {
         $nth := [ @$nth ] if defined $nth;
         my $to = 0;
         my $changes = 0;
-        my $limctr = $global ?? Inf !! defined($x) ??
-            $x.niecza_quantifier_max !! 1;
+        my $limctr = ($global || defined($x) && $x ~~ Whatever) ?? Inf
+                     !! defined($x) ?? $x.niecza_quantifier_max !! 1;
         my @out;
         my $index = 0;
         while $i < chars($str) && $limctr {