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

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

commit 2e93053bf0f61af8d185c34cd820af881eeaf183
Author: Dana Jacobsen <d...@acm.org>
Date:   Mon Jun 25 02:44:48 2012 -0600

    Wasn't correctly selecting win32
---
 t/31-threading.t | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/t/31-threading.t b/t/31-threading.t
index cb59571..ea91db7 100644
--- a/t/31-threading.t
+++ b/t/31-threading.t
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-my $is_win32 = 0;
 use Config;
 BEGIN {
   if (! $Config{useithreads} || $] < 5.008) {
@@ -14,11 +13,6 @@ BEGIN {
     print "1..0 # Skip threads.pm not installed\n";
     exit 0;
   }
-  if ($Config{osname} eq 'MSWin32') {
-    $is_win32 = 1;
-    #print "1..0 # Skip this module's threading not implemented on Win32\n";
-    #exit 0;
-  }
 }
 
 use Test::More 'tests' => 9;
@@ -57,6 +51,9 @@ my @randn = (
     79976 26714 27187 65237 18881 74975 28505 16271 51390 22598 65689 65512
     20357 68743 72422 69481 26714  6824 30012/);
 
+my $is_win32 = ($Config{osname} eq 'MSWin32')  ?  1  :  0;
+
+
 thread_test(
   sub { my $sum = 0;  $sum += prime_count($_) for (@randn); return $sum;},
   $numthreads, "sum prime_count");

-- 
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