[libmath-prime-util-perl] 05/18: Make sure we don't try to use really old versions of MPFR

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.17
in repository libmath-prime-util-perl.

commit 0ead230fb946cd130cb7190ef0ccb4fa87a3d23e
Author: Dana Jacobsen <dana at acm.org>
Date:   Sat Dec 15 20:34:05 2012 -0800

    Make sure we don't try to use really old versions of MPFR
---
 lib/Math/Prime/Util/PP.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Math/Prime/Util/PP.pm b/lib/Math/Prime/Util/PP.pm
index 3a3d296..9303064 100644
--- a/lib/Math/Prime/Util/PP.pm
+++ b/lib/Math/Prime/Util/PP.pm
@@ -1437,7 +1437,7 @@ sub ExponentialIntegral {
   # Use MPFR if possible.
   if ($_have_MPFR < 0) {
     $_have_MPFR = 1;
-    eval { require Math::MPFR; 1; } or do { $_have_MPFR = 0; };
+    eval { require Math::MPFR; $Math::MPFR::VERSION >= 2.03; } or do { $_have_MPFR = 0; };
   }
   # Gotcha -- MPFR decided to make negative inputs return NaN.  Grrr.
   if ($_have_MPFR && $x > 0) {
@@ -1546,7 +1546,7 @@ sub LogarithmicIntegral {
   # Use MPFR if possible.
   if ($_have_MPFR < 0) {
     $_have_MPFR = 1;
-    eval { require Math::MPFR; 1; } or do { $_have_MPFR = 0; };
+    eval { require Math::MPFR; $Math::MPFR::VERSION >= 2.03; } or do { $_have_MPFR = 0; };
   }
   # Remember MPFR eint doesn't handle negative inputs
   if ($_have_MPFR && $x >= 1) {
@@ -1678,7 +1678,7 @@ sub RiemannZeta {
   # Use MPFR if possible.
   if ($_have_MPFR < 0) {
     $_have_MPFR = 1;
-    eval { require Math::MPFR; 1; } or do { $_have_MPFR = 0; };
+    eval { require Math::MPFR; $Math::MPFR::VERSION >= 2.03; } or do { $_have_MPFR = 0; };
   }
   if ($_have_MPFR) {
     my $wantbf = 0;
@@ -1743,7 +1743,7 @@ sub RiemannR {
   # Use MPFR if possible.
   if ($_have_MPFR < 0) {
     $_have_MPFR = 1;
-    eval { require Math::MPFR; 1; } or do { $_have_MPFR = 0; };
+    eval { require Math::MPFR; $Math::MPFR::VERSION >= 2.03; } or do { $_have_MPFR = 0; };
   }
   if ($_have_MPFR) {
     my $wantbf = 0;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git