allow substr($str, $first, Inf)

rakudo · Oct 14, 2012 · edb767a · edb767a
1 parent 8230aef
commit edb767a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -90,7 +90,9 @@ my class Str does Stringy {
         ).fail
             if $istart > $ichars;
         $length = $length($ichars - $istart) if nqp::istype($length, Callable);
-        my int $ilength = $length.defined ?? $length.Int !! $ichars - $istart;
+        my int $ilength = !$length.defined || $length === Inf
+                            ?? $ichars - $istart
+                            !! $length.Int;
         X::OutOfRange.new(
             what    => 'Length argument to substr',
             got     => $length,