threads::shared 1.22

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510806120544q76b18460l435fe9f3b1d77b2f@mail.gmail.com>

p4raw-id: //depot/perl@34047

17 files changed, 52 insertions, 18 deletions

diff --git a/ext/threads/shared/t/0nothread.t b/ext/threads/shared/t/0nothread.t
index f92dc759c4..36b1564a52 100644
--- a/ext/threads/shared/t/0nothread.t
+++ b/ext/threads/shared/t/0nothread.t
@@ -80,4 +80,6 @@ array(24, 42, 'Thing');
 share(\%hash);
 hash(24, 42, 'Thing');
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/av_refs.t b/ext/threads/shared/t/av_refs.t
index 431ec33171..2e77031280 100644
--- a/ext/threads/shared/t/av_refs.t
+++ b/ext/threads/shared/t/av_refs.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -94,4 +94,6 @@ ok(13, is_shared(@av), "Check for sharing");
 my $x :shared;
 ok(14, is_shared($x), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/av_simple.t b/ext/threads/shared/t/av_simple.t
index 66fd732aff..67d9a32f3a 100644
--- a/ext/threads/shared/t/av_simple.t
+++ b/ext/threads/shared/t/av_simple.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -134,4 +134,6 @@ ok(37, !defined delete($foo[0]), "Check that delete works from a thread");
 
 ok(44, is_shared(@foo), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/blessed.t b/ext/threads/shared/t/blessed.t
index 91a2ac34d5..225725f6f9 100644
--- a/ext/threads/shared/t/blessed.t
+++ b/ext/threads/shared/t/blessed.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -138,4 +138,6 @@ ok(35, ref($$hobj{'array'}) eq 'gnay', "reblessed array in hash");
 ok(36, ref($$hobj{'scalar'}) eq 'zab', "reblessed scalar in hash");
 ok(37, ${$$hobj{'scalar'}} eq 'test', "reblessed scalar in hash contents");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/clone.t b/ext/threads/shared/t/clone.t
index 8990adf61a..0e7e6486c5 100644
--- a/ext/threads/shared/t/clone.t
+++ b/ext/threads/shared/t/clone.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -156,4 +156,6 @@ ok($test++, 1, 'Loaded');
     ok($test++, $$hsh{'foo'}[1] eq 'bar', 'Cloned structure');
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 962bf160b4..3a6bfdf438 100644
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -282,4 +282,6 @@ $Base++;
     $Base += 4;
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/disabled.t b/ext/threads/shared/t/disabled.t
index e5ffc6125a..161bc7909e 100644
--- a/ext/threads/shared/t/disabled.t
+++ b/ext/threads/shared/t/disabled.t
@@ -54,4 +54,6 @@ foreach my $func (qw(cond_wait cond_signal cond_broadcast)) {
     ok( "@array", "1 2 3 4" );
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/hv_refs.t b/ext/threads/shared/t/hv_refs.t
index cc57a34e40..3985b3c3bb 100644
--- a/ext/threads/shared/t/hv_refs.t
+++ b/ext/threads/shared/t/hv_refs.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -110,4 +110,6 @@ ok(10, keys %foo == 0, "And make sure we realy have deleted the values");
 ok(19, is_shared($foo), "Check for sharing");
 ok(20, is_shared(%foo), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/hv_simple.t b/ext/threads/shared/t/hv_simple.t
index 9ea9b9e620..e80cd0882d 100644
--- a/ext/threads/shared/t/hv_simple.t
+++ b/ext/threads/shared/t/hv_simple.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -77,4 +77,6 @@ ok(15, keys %hash == 0, "Check clear");
 
 ok(16, is_shared(%hash), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/no_share.t b/ext/threads/shared/t/no_share.t
index 23a43fd3da..7c97b228ab 100644
--- a/ext/threads/shared/t/no_share.t
+++ b/ext/threads/shared/t/no_share.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -61,4 +61,6 @@ ok(5, $test eq "bar" || $test eq 'baz', "Test that value is an expected one");
 
 ok(6, ! is_shared($test), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/object.t b/ext/threads/shared/t/object.t
index 5c5a55e57e..394ed6a581 100644
--- 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
diff --git a/ext/threads/shared/t/shared_attr.t b/ext/threads/shared/t/shared_attr.t
index a901b702b7..09f231032e 100644
--- a/ext/threads/shared/t/shared_attr.t
+++ b/ext/threads/shared/t/shared_attr.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -78,4 +78,6 @@ for(1..10) {
   ok($test_count++, $str1 eq $str2, 'contents');
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/stress.t b/ext/threads/shared/t/stress.t
index 607d25c8cb..b82d81e070 100644
--- a/ext/threads/shared/t/stress.t
+++ b/ext/threads/shared/t/stress.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 ($^O eq 'hpux' && $Config{osvers} <= 10.20) {
-        print("1..0 # Skip: Broken under HP-UX 10.20\n");
+        print("1..0 # SKIP Broken under HP-UX 10.20\n");
         exit(0);
     }
 }
@@ -129,4 +129,6 @@ use threads::shared;
     }
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/sv_refs.t b/ext/threads/shared/t/sv_refs.t
index 72dc3c4c22..30173bd29e 100644
--- a/ext/threads/shared/t/sv_refs.t
+++ b/ext/threads/shared/t/sv_refs.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -100,4 +100,6 @@ ok(11, is_shared($foo), "Check for sharing");
     ok(21, is_shared($w) == is_shared($$$$w), '_id($w) == _id($$$$w)');
 }
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/sv_simple.t b/ext/threads/shared/t/sv_simple.t
index f532bc6033..f4cbcf280b 100644
--- a/ext/threads/shared/t/sv_simple.t
+++ b/ext/threads/shared/t/sv_simple.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -63,4 +63,6 @@ ok(10, !defined($test), "Check undef value");
 
 ok(11, is_shared($test), "Check for sharing");
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/wait.t b/ext/threads/shared/t/wait.t
index 4b5bd8ee40..6863292fe2 100644
--- a/ext/threads/shared/t/wait.t
+++ b/ext/threads/shared/t/wait.t
@@ -8,7 +8,7 @@ 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);
     }
 }
@@ -350,4 +350,6 @@ SYNCH_REFS: {
 
 } # -- SYNCH_REFS block
 
+exit(0);
+
 # EOF
diff --git a/ext/threads/shared/t/waithires.t b/ext/threads/shared/t/waithires.t
index 22e9c73563..b2e9146ca0 100644
--- a/ext/threads/shared/t/waithires.t
+++ b/ext/threads/shared/t/waithires.t
@@ -8,7 +8,7 @@ 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);
     }
     eval {
@@ -16,7 +16,7 @@ BEGIN {
         Time::HiRes->import('time');
     };
     if ($@) {
-        print("1..0 # Skip: Time::HiRes not available.\n");
+        print("1..0 # SKIP Time::HiRes not available.\n");
         exit(0);
     }
 }
@@ -318,4 +318,6 @@ SYNCH_REFS: {
 
 } # -- SYNCH_REFS block
 
+exit(0);
+
 # EOF