[libmath-prime-util-perl] 133/181: Make sure we can use as an int

[Partha P. Mukherjee]

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

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

commit 68a3c9dc278293387cdf6b8b7f0fc69e680fcbce
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Jan 8 02:23:36 2014 -0800

    Make sure we can use  as an int
---
 t/13-primecount.t  | 2 +-
 t/17-pseudoprime.t | 2 +-
 t/81-bignum.t      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/13-primecount.t b/t/13-primecount.t
index 8c10cba..b344717 100644
--- a/t/13-primecount.t
+++ b/t/13-primecount.t
@@ -7,7 +7,7 @@ use Math::Prime::Util qw/prime_count prime_count_lower prime_count_upper prime_c
 
 my $isxs  = Math::Prime::Util::prime_get_config->{'xs'};
 my $use64 = Math::Prime::Util::prime_get_config->{'maxbits'} > 32;
-my $extra = defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING};
+my $extra = 0+(defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING});
 
 #  Powers of 2:  http://oeis.org/A007053/b007053.txt
 #  Powers of 10: http://oeis.org/A006880/b006880.txt
diff --git a/t/17-pseudoprime.t b/t/17-pseudoprime.t
index 7f6ed12..488ba59 100644
--- a/t/17-pseudoprime.t
+++ b/t/17-pseudoprime.t
@@ -15,7 +15,7 @@ use Math::Prime::Util qw/is_prime
 
 my $use64 = Math::Prime::Util::prime_get_config->{'maxbits'} > 32;
 my $usexs = Math::Prime::Util::prime_get_config->{'xs'};
-my $extra = defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING};
+my $extra = 0+(defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING});
 
 # small primes
 my @sp = qw/2 3 5 7 11 13 17 19 23 29 31 37/;
diff --git a/t/81-bignum.t b/t/81-bignum.t
index 570cb02..140b30a 100644
--- a/t/81-bignum.t
+++ b/t/81-bignum.t
@@ -9,7 +9,7 @@ use warnings;
 # a small memory leak.  So running the test suite through valgrind will show
 # some small leaks in this test, which has nothing to do with the module.
 
-my $extra = defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING};
+my $extra = 0+(defined $ENV{EXTENDED_TESTING} && $ENV{EXTENDED_TESTING});
 my $use64 = ~0 > 4294967295;
 my $broken64 = (18446744073709550592 == ~0);
 

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