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 (file)
--- 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 (file)
--- 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);