| Subject: | from_base( illegal character ) test on substr on wrong position |
| Date: | Thu, 12 Oct 2017 19:59:52 +0000 |
| To: | "bug-Math-BaseCalc [...] rt.cpan.org" <bug-Math-BaseCalc [...] rt.cpan.org> |
| From: | John Bussjaeger <John.Bussjaeger [...] metrostate.edu> |
KWILLIAMS / Math-BaseCalc-1.019 / lib / Math / BaseCalc.pm
line 75
return undef unless exists $trans->{substr($str,0,1)};
should be
return undef unless exists $trans->{substr($str,-1,1)};
supposed to be same character as chop() on line 77.
perl v5.24.1
Darwin Kernel Version 14.5.0: Sun Jun 4 21:40:08 PDT 2017; root:xnu-2782.70.3~1/RELEASE_X86_64 x86_64