threads-shared v1.22

Author: jdhedden

Changes

@@ -1,5 +1,10 @@
 Revision history for Perl extension threads::shared.
 
+1.22 Tue Jun 10 17:15:36 2008
+	- Upgraded ppport.h to Devel::PPPort 3.14
+	- LICENSE section in POD
+	- End all tests with exit(0)
+
 1.21 Wed May 14 15:15:44 2008
 	- Added shared_clone()
 	- Fixed is_shared($x->{elem}) and the like

README

@@ -1,4 +1,4 @@
-threads::shared version 1.21
+threads::shared version 1.22
 ============================
 
 This module needs Perl 5.8.0 or later compiled with USEITHREADS.

ppport.h

@@ -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

shared.pm

@@ -80,4 +80,6 @@ array(24, 42, 'Thing');
 share(\%hash);
 hash(24, 42, 'Thing');
 
+exit(0);
+
 # EOF

t/0nothread.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

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);
     }
 }
@@ -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

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);
     }
 }
@@ -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

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);
     }
 }
@@ -156,4 +156,6 @@ ok($test++, 1, 'Loaded');
     ok($test++, $$hsh{'foo'}[1] eq 'bar', 'Cloned structure');
 }
 
+exit(0);
+
 # EOF

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);
     }
 }
@@ -282,4 +282,6 @@ $Base++;
     $Base += 4;
 }
 
+exit(0);
+
 # EOF