From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 28 Jan 2008 20:07:20 +0000 (+0000)
Subject: Upgrade to Tie-RefHash-1.38
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=74175ec19875e69f93e52047b759e03b473638b8;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Tie-RefHash-1.38

p4raw-id: //depot/perl@33099
---

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index 33a8f6f..f95bf41 100644
--- a/lib/Tie/RefHash.pm
+++ b/lib/Tie/RefHash.pm
@@ -2,7 +2,7 @@ package Tie::RefHash;
 
 use vars qw/$VERSION/;
 
-$VERSION = "1.37";
+$VERSION = "1.38";
 
 use 5.005;
 
diff --git a/lib/Tie/RefHash/threaded.t b/lib/Tie/RefHash/threaded.t
index 1e3a420..7e4fa1a 100644
--- a/lib/Tie/RefHash/threaded.t
+++ b/lib/Tie/RefHash/threaded.t
@@ -14,8 +14,15 @@ BEGIN {
     # this is sucky because threads.pm has to be loaded before Test::Builder
   use Config;
   eval { require Scalar::Util };
-  if ( $Config{usethreads} and !$Config{use5005threads} and defined(&Scalar::Util::weaken) ) {
-    require threads; "threads"->import;
+
+  if ( $^O eq 'MSWin32' ) {
+    print "1..0 # Skip -- this test is generally broken on windows for unknown reasons. If you can help debug this patches would be very welcome.\n";
+    exit 0;
+  }
+  if ( $Config{usethreads} and !$Config{use5005threads}
+      and defined(&Scalar::Util::weaken)
+      and eval { require threads; "threads"->import }
+  ) {
     print "1..14\n";
   } else {
     print "1..0 # Skip -- threads aren't enabled in your perl, or Scalar::Util::weaken is missing\n";