Subject: | Math::Base36::decode_base36 -- invalid base 36 digit: '0' |
Date: | Sat, 06 Nov 2010 21:44:22 -0400 |
To: | bug-Math-Base36 [...] rt.cpan.org |
From: | Bruce Dawson <jbd [...] codemeta.com> |
**This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi
Date of Base36.pm file: 2002-02-17 (Couldn't find a version number)
OS: Linux river 2.6.24-23-generic #1 SMP Thu Nov 27 18:13:46 UTC 2008
x86_64 GNU/Linux
The following program produces an error:
$ ../bin/uuid-encode
1289093634 is LBHR0I
Math::Base36::decode_base36 -- invalid base 36 digit: '0' at
../bin/uuid-encode line 11
----------------------------
#!/usr/bin/perl
use Math::Base36 ':all';
my $p = $ARGV[0];
if ($p eq "") {
$p = time;
}
my $t = encode_base36($p);
print $p . " is " . $t . "\n";
my $nt = decode_base36($t);
print "Which equates to " . scalar(localtime($nt)) . "\n";