Change 33099 by [EMAIL PROTECTED] on 2008/01/28 20:07:20
Upgrade to Tie-RefHash-1.38
Affected files ...
... //depot/perl/lib/Tie/RefHash.pm#24 edit
... //depot/perl/lib/Tie/RefHash/threaded.t#4 edit
Differences ...
==== //depot/perl/lib/Tie/RefHash.pm#24 (text) ====
Index: perl/lib/Tie/RefHash.pm
--- perl/lib/Tie/RefHash.pm#23~31166~ 2007-05-07 08:39:49.000000000 -0700
+++ perl/lib/Tie/RefHash.pm 2008-01-28 12:07:20.000000000 -0800
@@ -2,7 +2,7 @@
use vars qw/$VERSION/;
-$VERSION = "1.37";
+$VERSION = "1.38";
use 5.005;
==== //depot/perl/lib/Tie/RefHash/threaded.t#4 (text) ====
Index: perl/lib/Tie/RefHash/threaded.t
--- perl/lib/Tie/RefHash/threaded.t#3~31166~ 2007-05-07 08:39:49.000000000
-0700
+++ perl/lib/Tie/RefHash/threaded.t 2008-01-28 12:07:20.000000000 -0800
@@ -14,8 +14,15 @@
# 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";
End of Patch.
