This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
threads::shared 1.22
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 12 Jun 2008 08:44:12 +0000 (04:44 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jun 2008 17:06:18 +0000 (17:06 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510806120544q76b18460l435fe9f3b1d77b2f@mail.gmail.com>

p4raw-id: //depot/perl@34047

18 files changed:
ext/threads/shared/shared.pm
ext/threads/shared/t/0nothread.t
ext/threads/shared/t/av_refs.t
ext/threads/shared/t/av_simple.t
ext/threads/shared/t/blessed.t
ext/threads/shared/t/clone.t
ext/threads/shared/t/cond.t
ext/threads/shared/t/disabled.t
ext/threads/shared/t/hv_refs.t
ext/threads/shared/t/hv_simple.t
ext/threads/shared/t/no_share.t
ext/threads/shared/t/object.t
ext/threads/shared/t/shared_attr.t
ext/threads/shared/t/stress.t
ext/threads/shared/t/sv_refs.t
ext/threads/shared/t/sv_simple.t
ext/threads/shared/t/wait.t
ext/threads/shared/t/waithires.t

index fee9365..37c0704 100644 (file)
@@ -7,7 +7,7 @@ use warnings;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -186,7 +186,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.21
+This document describes threads::shared version 1.22
 
 =head1 SYNOPSIS
 
@@ -540,7 +540,7 @@ L<threads::shared> Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/threads-shared>
 
 Annotated POD for L<threads::shared>:
-L<http://annocpan.org/~JDHEDDEN/threads-shared-1.21/shared.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-shared-1.22/shared.pm>
 
 Source repository:
 L<http://code.google.com/p/threads-shared/>
@@ -557,10 +557,12 @@ L<http://lists.cpan.org/showlist.cgi?name=iThreads>
 
 Artur Bergman E<lt>sky AT crucially DOT netE<gt>
 
-threads::shared is released under the same license as Perl.
-
 Documentation borrowed from the old Thread.pm.
 
 CPAN version produced by Jerry D. Hedden E<lt>jdhedden AT cpan DOT orgE<gt>.
 
+=head1 LICENSE
+
+threads::shared is released under the same license as Perl.
+
 =cut
index f92dc75..36b1564 100644 (file)
@@ -80,4 +80,6 @@ array(24, 42, 'Thing');
 share(\%hash);
 hash(24, 42, 'Thing');
 
+exit(0);
+
 # EOF
index 431ec33..2e77031 100644 (file)
@@ -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
index 66fd732..67d9a32 100644 (file)
@@ -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
index 91a2ac3..225725f 100644 (file)
@@ -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
index 8990adf..0e7e648 100644 (file)
@@ -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
index 962bf16..3a6bfdf 100644 (file)
@@ -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
index e5ffc61..161bc79 100644 (file)
@@ -54,4 +54,6 @@ foreach my $func (qw(cond_wait cond_signal cond_broadcast)) {
     ok( "@array", "1 2 3 4" );
 }
 
+exit(0);
+
 # EOF
index cc57a34..3985b3c 100644 (file)
@@ -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
index 9ea9b9e..e80cd08 100644 (file)
@@ -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
index 23a43fd..7c97b22 100644 (file)
@@ -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
index 5c5a55e..394ed6a 100644 (file)
@@ -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
index a901b70..09f2310 100644 (file)
@@ -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
index 607d25c..b82d81e 100644 (file)
@@ -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
index 72dc3c4..30173bd 100644 (file)
@@ -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
index f532bc6..f4cbcf2 100644 (file)
@@ -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
index 4b5bd8e..6863292 100644 (file)
@@ -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
index 22e9c73..b2e9146 100644 (file)
@@ -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