From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 26 May 2010 18:50:39 +0000 (-0400)
Subject: Un-TODO a threads-shared test that now passes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abd889b86d676557bdda48bf0873bd04aa95a9ff;p=p5sagit%2Fp5-mst-13.2.git

Un-TODO a threads-shared test that now passes

Commit bb1bc619ea68d9703fbd3fe5bc65ae000f90151f has
fixed a threads-shared TODO test in t/object.t.
---

diff --git a/dist/threads-shared/shared.pm b/dist/threads-shared/shared.pm
index 15e7a02..200f0a7 100644
--- a/dist/threads-shared/shared.pm
+++ b/dist/threads-shared/shared.pm
@@ -7,7 +7,7 @@ use warnings;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.33';
+our $VERSION = '1.33_01';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
diff --git a/dist/threads-shared/t/object.t b/dist/threads-shared/t/object.t
index 4e3c189..d8ba246 100644
--- a/dist/threads-shared/t/object.t
+++ b/dist/threads-shared/t/object.t
@@ -172,7 +172,9 @@ threads->create( sub {
         ok($$obj == 2, "Thread: New object ID $$obj");
     } )->join();
 
-ok($$obj == 2, "Main: New object ID $$obj  # TODO - should be 2");
+# Fixed by commit bb1bc619ea68d9703fbd3fe5bc65ae000f90151f
+my $todo = ($] <= 5.013001) ? "  # TODO - should be 2" : "";
+ok($$obj == 2, "Main: New object ID $$obj".$todo);
 
 exit(0);