[libmath-prime-util-perl] 03/16: Log some more bignum info to get a clue why old ActiveState's BigInt::Calc barfs

[Partha P. Mukherjee]

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

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

commit 4ec5c5891eb55684f9fe837fb36388eb5b0fede4
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Jan 14 01:15:24 2013 -0800

    Log some more bignum info to get a clue why old ActiveState's BigInt::Calc barfs
---
 t/81-bignum.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/t/81-bignum.t b/t/81-bignum.t
index 51d024f..f8fe390 100644
--- a/t/81-bignum.t
+++ b/t/81-bignum.t
@@ -109,11 +109,13 @@ use Math::Prime::Util qw/
 #        LogarithmicIntegral
 #        RiemannR
 
+my $bignumver = $bigint::VERSION;
+my $bigintver = $Math::BigInt::VERSION;
 my $bigintlib = Math::BigInt->config()->{lib};
 $bigintlib =~ s/^Math::BigInt:://;
 my $mpugmpver = Math::Prime::Util::prime_get_config->{gmp}
                 ? $Math::Prime::Util::GMP::VERSION : "<none>";
-diag "BigInt library: $bigintlib, MPU::GMP $mpugmpver\n";
+diag "BigInt $bignumver/$bigintver, lib: $bigintlib.  MPU::GMP $mpugmpver\n";
 
 
 ###############################################################################
@@ -230,7 +232,7 @@ sub check_pcbounds {
   prime_set_config(assume_rh=>1);
   my $pclo_rh = prime_count_lower($n);
   my $pcup_rh = prime_count_upper($n);
-  prime_set_config(assume_rh=>0);
+  prime_set_config(assume_rh => undef);
 
   #diag "lower:    " . $pclo->bstr() . "  " . ($pcap-$pclo)->bstr;
   #diag "rh lower: " . $pclo_rh->bstr() . "  " . ($pcap-$pclo_rh)->bstr;

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