# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1450564611 -3600
# Node ID b8d25524650ef43ef89a01eecc5b4812aa175ab5
# Parent  1700cf7203158f7405e181232d027df86a562c7e
Check for range limit (maxint)

diff -r 1700cf720315 -r b8d25524650e once.pl
--- a/once.pl	Wed Dec 16 17:25:38 2015 +0100
+++ b/once.pl	Sat Dec 19 23:36:51 2015 +0100
@@ -302,7 +302,8 @@
 }
 
 sub base62 {
-    my $n = shift;
+    my $n = shift // $_;
+    die 'left integer precision' if $n == $n - 1 or $n == $n + 1;
     state $digits = [0..9, 'a'..'z', 'A'..'Z'];
     state $base = @$digits;
     my @result;