Make sure sub split() passes all nameds as well

rakudo · Nov 7, 2015 · f4266f2 · f4266f2
1 parent 4aa63f0
commit f4266f2
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -365,11 +365,9 @@ sub sprintf(Cool $format, *@args) {
     );
 }
 
-sub printf(Cool $format, *@args) { print sprintf $format, @args };
+sub printf(Cool $format, *@args)          { print sprintf $format, @args }
 sub samecase(Cool $string, Cool $pattern) { $string.samecase($pattern) }
-sub split($pat, Cool $target, $limit = Inf, :$all) {
-    $target.split($pat, $limit, :$all);
-}
+sub split($pat, Cool $target, |c)         { $target.split($pat, |c) }
 
 proto sub chars($) is pure {*}
 multi sub chars(Cool $x)  { $x.Str.chars }