diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm b/Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm index 69092370533..3d886910005 100644 --- a/Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm +++ b/Master/tlpkg/tlperl/lib/Math/BigInt/Calc.pm @@ -2,9 +2,9 @@ package Math::BigInt::Calc; use 5.006002; use strict; -# use warnings; # dont use warnings for older Perls +# use warnings; # do not use warnings for older Perls -our $VERSION = '1.997'; +our $VERSION = '1.998'; # Package to store unsigned big integers in decimal and do math with them @@ -23,7 +23,7 @@ our $VERSION = '1.997'; # Beware of things like: # $i = $i * $y + $car; $car = int($i / $BASE); $i = $i % $BASE; -# This works on x86, but fails on ARM (SA1100, iPAQ) due to whoknows what +# This works on x86, but fails on ARM (SA1100, iPAQ) due to who knows what # reasons. So, use this instead (slower, but correct): # $i = $i * $y + $car; $car = int($i / $BASE); $i -= $BASE * $car; @@ -1566,7 +1566,7 @@ sub _nok { else { - # Make a copy of the original n, since we'll be modifing n in-place. + # Make a copy of the original n, since we'll be modifying n in-place. my $n_orig = _copy($c, $n); |