[libmath-prime-util-perl] 55/59: Minor updates for release

[Partha P. Mukherjee]

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

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

commit b7a24d3b5d8bbb7280f4da21818e7f71844dba8f
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Jul 16 22:05:26 2012 -0600

    Minor updates for release
---
 Makefile.PL | 1 +
 t/02-can.t  | 2 +-
 util.c      | 6 +++---
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index fe742a3..cba57a3 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -23,6 +23,7 @@ WriteMakefile1(
                       'Carp'             => 0,
                       'Tie::Array'       => 0,
                       'base'             => 0,
+                      'Config'           => 0,
                       'bignum'           => '0.23',   # Used for bigint tests
                       'Math::BigInt'     => '1.88',
                       'Math::BigFloat'   => '1.59',
diff --git a/t/02-can.t b/t/02-can.t
index 4f3cac8..35a97b7 100644
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -14,7 +14,7 @@ my @functions =  qw(
                      next_prime  prev_prime
                      prime_count prime_count_lower prime_count_upper prime_count_approx
                      nth_prime nth_prime_lower nth_prime_upper nth_prime_approx
-                     random_prime random_ndigit_prime
+                     random_prime random_ndigit_prime random_nbit_prime random_maurer_prime
                      factor all_factors moebius euler_phi
                      ExponentialIntegral LogarithmicIntegral RiemannR
                    );
diff --git a/util.c b/util.c
index a636a39..a5d923a 100644
--- a/util.c
+++ b/util.c
@@ -489,9 +489,9 @@ static UV _XS_nth_prime_upper(UV n)
     upper = fn * (flogn + flog2n - 1.0 + ((flog2n-2.00)/flogn));
   else if (n >= 178974)    /* Dusart 2010 page 7 */
     upper = fn * (flogn + flog2n - 1.0 + ((flog2n-1.95)/flogn));
-  else if (n >= 27076)     /* Dusart 1999 page 14 */
-    upper = fn * (flogn + flog2n - 1.0 + ((flog2n-1.80)/flogn));
-  else if (n >=     6)     /* Modified from Robin 1983 for 6-27075 _only_ */
+  else if (n >=  39017)    /* Dusart 1999 page 14 */
+    upper = fn * (flogn + flog2n - 0.9484);
+  else if (n >=     6)     /* Modified from Robin 1983 for 6-39016 _only_ */
     upper = fn * ( flogn  +  0.6000 * flog2n );
   else
     upper = fn * ( flogn + flog2n );

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