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

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

commit 93349516050d3a60570f6bd45cc3c03b0ca82c69
Author: Dana Jacobsen <d...@acm.org>
Date:   Fri Jun 22 00:13:39 2012 -0600

    Fiddle with Makefile.PL
---
 Makefile.PL      |  2 ++
 t/31-threading.t | 21 +++++++++++----------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index f11bea2..1c8925f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,6 +12,7 @@ WriteMakefile1(
                     'sieve.o '  .
                     'util.o '  .
                     'XS.o',
+    LIBS         => ['-lm'],
 
     BUILD_REQUIRES => {
                     'Test::More'       => '0.45',
@@ -21,6 +22,7 @@ WriteMakefile1(
                       'XSLoader'         => '0.01',
                       'Carp'             => 0,
                       'Tie::Array'       => 0,
+                      'base'             => 0,
                     },
 
     MIN_PERL_VERSION => 5.006002,
diff --git a/t/31-threading.t b/t/31-threading.t
index 8959276..ec1704f 100644
--- a/t/31-threading.t
+++ b/t/31-threading.t
@@ -17,46 +17,47 @@ BEGIN {
 
 use Test::More 'tests' => 9;
 use Math::Prime::Util ":all";
+my $numthreads = 8;
 
 srand(50);
 my @randn;
-push @randn, rand(100000) for (0..37);
+push @randn, rand(100000) for (0..377);
 
 thread_test(
   sub { my $sum = 0;  $sum += prime_count($_) for (@randn); return $sum;},
-  8, "sum prime_count");
+  $numthreads, "sum prime_count");
 
 thread_test(
   sub { my $sum = 0;  for (@randn) {$sum += prime_count($_); prime_memfree; } 
return $sum;},
-  8, "sum prime_count with overlapping memfree calls");
+  $numthreads, "sum prime_count with overlapping memfree calls");
 
 thread_test(
   sub { my $sum = 0; for my $d (@randn) { for my $f (factor($d)) { $sum += $f; 
} } return $sum; },
-  8, "factor");
+  $numthreads, "factor");
 
 thread_test(
   sub { my $sum = 0;  $sum += nth_prime($_) for (@randn); return $sum;},
-  8, "nth_prime");
+  $numthreads, "nth_prime");
 
 thread_test(
   sub { my $sum = 0;  $sum += next_prime($_) for (@randn); return $sum;},
-  8, "next_prime");
+  $numthreads, "next_prime");
 
 thread_test(
   sub { my $sum = 0;  $sum += prev_prime($_) for (@randn); return $sum;},
-  8, "prev_prime");
+  $numthreads, "prev_prime");
 
 thread_test(
   sub { my $sum = 0;  $sum += is_prime($_) for (@randn); return $sum;},
-  8, "is_prime");
+  $numthreads, "is_prime");
 
 thread_test(
   sub { my $sum = 0;  for (@randn) { srand($_); $sum += 
random_ndigit_prime(6); } return $sum;},
-  8, "random 7-digit prime");
+  $numthreads, "random 7-digit prime");
 
 thread_test(
   sub { my $sum = 0;  $sum += int(RiemannR($_)) for (@randn); return $sum;},
-  8, "RiemannR");
+  $numthreads, "RiemannR");
 
 sub thread_test {
   my $tsub = shift;

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to