This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.13 in repository libmath-prime-util-perl.
commit 105da77ad56591bd2c02b4638b890ba4f31a8c81 Author: Dana Jacobsen <[email protected]> Date: Tue Jul 24 11:01:54 2012 -0600 Call GMP prime_count if available --- Changes | 2 +- Makefile.PL | 11 +++++++---- lib/Math/Prime/Util.pm | 4 +++- 3 files changed, 11 insertions(+), 6 deletions(-) diff --git a/Changes b/Changes index 358dd09..84002fa 100644 --- a/Changes +++ b/Changes @@ -6,7 +6,7 @@ Revision history for Perl extension Math::Prime::Util. used for integers > 40 before). 0.11 23 July 2012 - - Turn of threading tests on Cygwin, as threads on some Cygwin platforms + - Turn off threading tests on Cygwin, as threads on some Cygwin platforms give random panics (my Win7 64-bit works fine, XP 32-bit does not). - Use pow instead of exp2 -- some systems don't have exp2. - Fix compile issues on MSC, thanks to Sisyphus. diff --git a/Makefile.PL b/Makefile.PL index cba57a3..7994601 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -14,9 +14,10 @@ WriteMakefile1( 'XS.o', LIBS => ['-lm'], - BUILD_REQUIRES => { - 'Test::More' => '0.45', - }, + BUILD_REQUIRES=>{ + 'Test::More' => '0.45', + 'bignum' => '0.23', # Used for bigint tests + }, PREREQ_PM => { 'Exporter' => '5.562', 'XSLoader' => '0.01', @@ -24,10 +25,12 @@ WriteMakefile1( 'Tie::Array' => 0, 'base' => 0, 'Config' => 0, - 'bignum' => '0.23', # Used for bigint tests 'Math::BigInt' => '1.88', 'Math::BigFloat' => '1.59', }, + META_MERGE => { + recommends => { 'Math::Prime::Util::GMP' => 0.04, }, + }, MIN_PERL_VERSION => 5.006002, ); diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm index b941e38..b1eb9c1 100644 --- a/lib/Math/Prime/Util.pm +++ b/lib/Math/Prime/Util.pm @@ -162,7 +162,7 @@ sub _validate_positive_integer { 1; } -# It you use bigint then call one of the approx/bounds/math functions, you'll +# If you use bigint then call one of the approx/bounds/math functions, you'll # end up with full bignum turned on. This seems non-optimal. However, if I # don't do this, then you'll get wrong results and end up with it turned on # _anyway_. As soon as anyone does something like log($n) where $n is a @@ -784,6 +784,8 @@ sub prime_count { return 0 if $high < 2 || $low > $high; return _XS_prime_count($low,$high) if $high <= $_XS_MAXVAL; + return Math::Prime::Util::GMP::prime_count($low,$high) if $_HAVE_GMP + && defined &Math::Prime::Util::GMP::prime_count; return Math::Prime::Util::PP::prime_count($low,$high); } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
