diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-28 20:17:29 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-29 14:42:41 +0100 |
| commit | 85b6f04b7ee23e319b73a6a2f61aa9c4169557fe (patch) | |
| tree | 1648ee149b681ed4fe3789feb1464f6b7defd7ad /dist | |
| parent | 4dd6c65fbede48f7d20b2635d98243597695527c (diff) | |
| download | perl-85b6f04b7ee23e319b73a6a2f61aa9c4169557fe.tar.gz | |
Math::BigInt::FastCalc doesn't need to set $BASE or $BASE_LEN.
The variables are neither documented nor exported, and nothing on CPAN uses
them. Hence there is no need to set them, which means that the return list from
Math::BigInt::Calc::_base_len() can be passed directly into FastCalc's XS
bootstrap.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Math-BigInt-FastCalc/FastCalc.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/dist/Math-BigInt-FastCalc/FastCalc.pm b/dist/Math-BigInt-FastCalc/FastCalc.pm index f044132d14..e37c78d939 100644 --- a/dist/Math-BigInt-FastCalc/FastCalc.pm +++ b/dist/Math-BigInt-FastCalc/FastCalc.pm @@ -6,7 +6,7 @@ use warnings; use Math::BigInt::Calc 0.56; -use vars qw/$VERSION $BASE $BASE_LEN/; +use vars '$VERSION'; $VERSION = '0.24'; @@ -36,10 +36,8 @@ for my $method (qw/ *{'Math::BigInt::FastCalc::_' . $method} = \&{'Math::BigInt::Calc::_' . $method}; } - ($BASE_LEN, $BASE) = Math::BigInt::Calc::_base_len(); - require XSLoader; -XSLoader::load(__PACKAGE__, $VERSION, $BASE_LEN, $BASE); +XSLoader::load(__PACKAGE__, $VERSION, Math::BigInt::Calc::_base_len()); ############################################################################## ############################################################################## |