This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.36 in repository libmath-prime-util-perl.
commit 443caad8921b0e3443a6f941d8c0ae123e981377 Author: Dana Jacobsen <d...@acm.org> Date: Tue Jan 7 01:41:08 2014 -0800 Right number of extra tests, remove references to old _XS_next_prime --- lib/Math/Prime/Util.pm | 6 ------ t/81-bignum.t | 4 ++-- 2 files changed, 2 insertions(+), 8 deletions(-) diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm index 3655e0b..906fcd6 100644 --- a/lib/Math/Prime/Util.pm +++ b/lib/Math/Prime/Util.pm @@ -1544,9 +1544,6 @@ sub _generic_next_prime { my($n) = @_; _validate_num($n) || _validate_positive_integer($n); - return _XS_next_prime($n) - if $n <= $_XS_MAXVAL && $n < MPU_MAXPRIME; - if ($_HAVE_GMP) { my $r = Math::Prime::Util::GMP::next_prime($n); return (ref($n) eq 'Math::BigInt' || $n >= MPU_MAXPRIME) @@ -1560,9 +1557,6 @@ sub _generic_prev_prime { my($n) = @_; _validate_num($n) || _validate_positive_integer($n); - return _XS_prev_prime($n) - if $n <= $_XS_MAXVAL; - if ($_HAVE_GMP) { my $r = Math::Prime::Util::GMP::prev_prime($n); return (ref($n) eq 'Math::BigInt' && $r > MPU_MAXPRIME) diff --git a/t/81-bignum.t b/t/81-bignum.t index 5e21c6c..570cb02 100644 --- a/t/81-bignum.t +++ b/t/81-bignum.t @@ -76,7 +76,7 @@ plan tests => 0 + 6*2*$extra # more PC tests + 2*scalar(keys %factors) + scalar(keys %allfactors) - + 13+4*$extra # moebius, euler_phi, jordan totient, divsum, etc. + + 13+3*$extra # moebius, euler_phi, jordan totient, divsum, etc. + 2 # liouville + 3 # gcd + 3 # lcm @@ -225,7 +225,7 @@ SKIP: { ############################################################################### SKIP: { - skip "Your 64-bit Perl is broken, skipping moebius, totient, etc.", 13+4*$extra if $broken64; + skip "Your 64-bit Perl is broken, skipping moebius, totient, etc.", 13+3*$extra if $broken64; my $n; $n = 618970019642690137449562110; is( moebius($n), -1, "moebius($n)" ); -- 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 Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits