diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-28 14:15:01 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-29 14:42:40 +0100 |
| commit | f800d0e18f11d3c11bd1daa3a3643fef23b55dd1 (patch) | |
| tree | ccfe262fc17b6555ac45d3deefe8a338b3ed92c2 /dist/Math-BigInt-FastCalc | |
| parent | 7afc2217360681dc8e7e48a20a57eb14a33d079d (diff) | |
| download | perl-f800d0e18f11d3c11bd1daa3a3643fef23b55dd1.tar.gz | |
Reorder the list return of Math::BigInt::Calc::_base_len().
A search of CPAN shows that this private function is only used internally
between Math::BigInt::Calc, Math::BigInt::FastCalc and their test suites.
Diffstat (limited to 'dist/Math-BigInt-FastCalc')
| -rw-r--r-- | dist/Math-BigInt-FastCalc/FastCalc.pm | 10 | ||||
| -rw-r--r-- | dist/Math-BigInt-FastCalc/t/bigintfc.t | 2 |
2 files changed, 5 insertions, 7 deletions
diff --git a/dist/Math-BigInt-FastCalc/FastCalc.pm b/dist/Math-BigInt-FastCalc/FastCalc.pm index 24ab90b67f..e574655e3e 100644 --- a/dist/Math-BigInt-FastCalc/FastCalc.pm +++ b/dist/Math-BigInt-FastCalc/FastCalc.pm @@ -4,11 +4,11 @@ use 5.006; use strict; use warnings; -use Math::BigInt::Calc; +use Math::BigInt::Calc 0.56; use vars qw/$VERSION $BASE $BASE_LEN/; -$VERSION = '0.23'; +$VERSION = '0.24'; require XSLoader; XSLoader::load(__PACKAGE__); @@ -40,11 +40,9 @@ BEGIN no strict 'refs'; *{'Math::BigInt::FastCalc::_' . $method} = \&{'Math::BigInt::Calc::_' . $method}; } - my ($AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL); - + # store BASE_LEN and BASE to later pass it to XS code - ($BASE_LEN, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL, $BASE) = - Math::BigInt::Calc::_base_len(); + ($BASE_LEN, $BASE) = Math::BigInt::Calc::_base_len(); } diff --git a/dist/Math-BigInt-FastCalc/t/bigintfc.t b/dist/Math-BigInt-FastCalc/t/bigintfc.t index 585ec75966..a51610c416 100644 --- a/dist/Math-BigInt-FastCalc/t/bigintfc.t +++ b/dist/Math-BigInt-FastCalc/t/bigintfc.t @@ -5,7 +5,7 @@ use Test::More tests => 359; use Math::BigInt::FastCalc; -my ($BASE_LEN, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL) = +my ($BASE_LEN, undef, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL) = Math::BigInt::FastCalc->_base_len(); print "# BASE_LEN = $BASE_LEN\n"; |