diff options
| -rw-r--r-- | lib/Tie/RefHash.pm | 2 | ||||
| -rw-r--r-- | lib/Tie/RefHash/threaded.t | 11 |
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"; |