threads::shared 1.22

[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / object.t

diff --git a/ext/threads/shared/t/object.t b/ext/threads/shared/t/object.t
index 5c5a55e..394ed6a 100644 (file)
--- a/ext/threads/shared/t/object.t
+++ b/ext/threads/shared/t/object.t
@@ -8,11 +8,11 @@ BEGIN {
     }
     use Config;
     if (! $Config{'useithreads'}) {
-        print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+        print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
         exit(0);
     }
     if ($] < 5.010) {
-        print("1..0 # Skip: Needs Perl 5.10.0 or later\n");
+        print("1..0 # SKIP Needs Perl 5.10.0 or later\n");
         exit(0);
     }
 }
@@ -178,4 +178,6 @@ threads->create( sub {
 
 ok($$obj == 2, "Main: New object ID $$obj  # TODO - should be 2");
 
+exit(0);
+
 # EOF