This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.26 in repository libmath-prime-util-perl.
commit e26a3479c854f267e4842a47d4f0c0b20dad14fb Author: Dana Jacobsen <d...@acm.org> Date: Wed Apr 10 19:07:14 2013 -0700 Fix: Was checking wrong BigInt variable and loading a second backend. --- lib/Math/Prime/Util/PP.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lib/Math/Prime/Util/PP.pm b/lib/Math/Prime/Util/PP.pm index 1547766..9b5d766 100644 --- a/lib/Math/Prime/Util/PP.pm +++ b/lib/Math/Prime/Util/PP.pm @@ -882,7 +882,7 @@ sub is_strong_lucas_pseudoprime { # It's now time to perform the Lucas pseudoprimality test using $D. if (ref($n) ne 'Math::BigInt') { - if (!defined $MATH::BigInt::VERSION) { + if (!defined $Math::BigInt::VERSION) { eval { require Math::BigInt; Math::BigInt->import(try=>'GMP,Pari'); 1; } or do { croak "Cannot load Math::BigInt "; } } @@ -1031,11 +1031,11 @@ sub _test_anr { sub is_aks_prime { my $n = shift; - if (!defined $MATH::BigInt::VERSION) { + if (!defined $Math::BigInt::VERSION) { eval { require Math::BigInt; Math::BigInt->import(try=>'GMP,Pari'); 1; } or do { croak "Cannot load Math::BigInt "; } } - if (!defined $MATH::BigFloat::VERSION) { + if (!defined $Math::BigFloat::VERSION) { eval { require Math::BigFloat; Math::BigFloat->import(); 1; } or do { croak "Cannot load Math::BigFloat "; } } @@ -1472,7 +1472,7 @@ sub ExponentialIntegral { my $wantbf = 0; my $xdigits = 17; if (defined $bignum::VERSION || ref($x) =~ /^Math::Big/) { - if (!defined $MATH::BigFloat::VERSION) { + if (!defined $Math::BigFloat::VERSION) { eval { require Math::BigFloat; Math::BigFloat->import(); 1; } or do { croak "Cannot load Math::BigFloat "; } } @@ -1582,7 +1582,7 @@ sub LogarithmicIntegral { my $wantbf = 0; my $xdigits = 17; if (defined $bignum::VERSION || ref($x) =~ /^Math::Big/) { - if (!defined $MATH::BigFloat::VERSION) { + if (!defined $Math::BigFloat::VERSION) { eval { require Math::BigFloat; Math::BigFloat->import(); 1; } or do { croak "Cannot load Math::BigFloat "; } } @@ -1714,7 +1714,7 @@ sub RiemannZeta { my $wantbf = 0; my $xdigits = 17; if (defined $bignum::VERSION || ref($x) =~ /^Math::Big/) { - if (!defined $MATH::BigFloat::VERSION) { + if (!defined $Math::BigFloat::VERSION) { eval { require Math::BigFloat; Math::BigFloat->import(); 1; } or do { croak "Cannot load Math::BigFloat "; } } @@ -1805,7 +1805,7 @@ sub RiemannR { my $wantbf = 0; my $xdigits = 17; if (defined $bignum::VERSION || ref($x) =~ /^Math::Big/) { - if (!defined $MATH::BigFloat::VERSION) { + if (!defined $Math::BigFloat::VERSION) { eval { require Math::BigFloat; Math::BigFloat->import(); 1; } or do { croak "Cannot load Math::BigFloat "; } } -- 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