This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT ticket #61812: digit($n) with $n "out of range"
authorPeter John Acklam <pjacklam@online.no>
Thu, 4 Nov 2010 17:08:56 +0000 (18:08 +0100)
committerFlorian Ragwitz <rafl@debian.org>
Sun, 7 Nov 2010 15:15:22 +0000 (16:15 +0100)
commit84f8f1aed5c8e9f51bb9d93e9040c787cb1c311c
treeadc1b5f8eee922f6d260765b77cc4d7d7874930a
parent9681bfa67d7baa813bc256afd3d3c6380121f85d
RT ticket #61812: digit($n) with $n "out of range"

The _digit($n) method in Math::BigInt::Calc should return 0 when $n
refers to a leading zero digit. E.g., the number '314' is just the
same as '000314', except that the leading zeros omitted, so _digit($n)
should return '0' when $n refers to a leading zero digit.

- lib/Math/BigInt/Calc.pm: Improve comments in source code. Add code
  returning zero when input refers to a leading zero digit. Removed
  redundant zero padding in temporary string argument to substr().

- t/bigintc.t: Add four test cases verifying the behaviour. Increment
  number of test by four.
dist/Math-BigInt/lib/Math/BigInt/Calc.pm
dist/Math-BigInt/t/bigintc.t