Upgrade to Tie-RefHash-1.38

p4raw-id: //depot/perl@33099

2 files changed, 10 insertions, 3 deletions

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index 33a8f6fc11..f95bf41efd 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 1e3a42038c..7e4fa1a7f0 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";