[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
ppm-guest at moszumanska.debian.org
Thu May 21 18:46:50 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list