[libmath-prime-util-perl] 02/18: Fix: Was checking wrong BigInt variable and loading a second backend.

[Partha P. Mukherjee]

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 <dana at 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