Change 34047 by [EMAIL PROTECTED] on 2008/06/13 17:06:18
Subject: [PATCH - revised] threads::shared 1.22
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Thu, 12 Jun 2008 08:44:12 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/threads/shared/shared.pm#61 edit
... //depot/perl/ext/threads/shared/t/0nothread.t#7 edit
... //depot/perl/ext/threads/shared/t/av_refs.t#4 edit
... //depot/perl/ext/threads/shared/t/av_simple.t#5 edit
... //depot/perl/ext/threads/shared/t/blessed.t#6 edit
... //depot/perl/ext/threads/shared/t/clone.t#2 edit
... //depot/perl/ext/threads/shared/t/cond.t#18 edit
... //depot/perl/ext/threads/shared/t/disabled.t#6 edit
... //depot/perl/ext/threads/shared/t/hv_refs.t#14 edit
... //depot/perl/ext/threads/shared/t/hv_simple.t#7 edit
... //depot/perl/ext/threads/shared/t/no_share.t#5 edit
... //depot/perl/ext/threads/shared/t/object.t#3 edit
... //depot/perl/ext/threads/shared/t/shared_attr.t#4 edit
... //depot/perl/ext/threads/shared/t/stress.t#7 edit
... //depot/perl/ext/threads/shared/t/sv_refs.t#8 edit
... //depot/perl/ext/threads/shared/t/sv_simple.t#5 edit
... //depot/perl/ext/threads/shared/t/wait.t#8 edit
... //depot/perl/ext/threads/shared/t/waithires.t#6 edit
Differences ...
==== //depot/perl/ext/threads/shared/shared.pm#61 (text) ====
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#60~33836~ 2008-05-16 10:31:30.000000000
-0700
+++ perl/ext/threads/shared/shared.pm 2008-06-13 10:06:18.000000000 -0700
@@ -7,7 +7,7 @@
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 @@
=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<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 @@
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
==== //depot/perl/ext/threads/shared/t/0nothread.t#7 (text) ====
Index: perl/ext/threads/shared/t/0nothread.t
--- perl/ext/threads/shared/t/0nothread.t#6~33360~ 2008-02-24
22:47:17.000000000 -0800
+++ perl/ext/threads/shared/t/0nothread.t 2008-06-13 10:06:18.000000000
-0700
@@ -80,4 +80,6 @@
share(\%hash);
hash(24, 42, 'Thing');
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/av_refs.t#4 (text) ====
Index: perl/ext/threads/shared/t/av_refs.t
--- perl/ext/threads/shared/t/av_refs.t#3~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/av_refs.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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 @@
my $x :shared;
ok(14, is_shared($x), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/av_simple.t#5 (text) ====
Index: perl/ext/threads/shared/t/av_simple.t
--- perl/ext/threads/shared/t/av_simple.t#4~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/av_simple.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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(44, is_shared(@foo), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/blessed.t#6 (text) ====
Index: perl/ext/threads/shared/t/blessed.t
--- perl/ext/threads/shared/t/blessed.t#5~31795~ 2007-09-05
06:53:16.000000000 -0700
+++ perl/ext/threads/shared/t/blessed.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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(36, ref($$hobj{'scalar'}) eq 'zab', "reblessed scalar in hash");
ok(37, ${$$hobj{'scalar'}} eq 'test', "reblessed scalar in hash contents");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/clone.t#2 (text) ====
Index: perl/ext/threads/shared/t/clone.t
--- perl/ext/threads/shared/t/clone.t#1~33836~ 2008-05-16 10:31:30.000000000
-0700
+++ perl/ext/threads/shared/t/clone.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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++, $$hsh{'foo'}[1] eq 'bar', 'Cloned structure');
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/cond.t#18 (text) ====
Index: perl/ext/threads/shared/t/cond.t
--- perl/ext/threads/shared/t/cond.t#17~30886~ 2007-04-10 02:41:00.000000000
-0700
+++ perl/ext/threads/shared/t/cond.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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 += 4;
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/disabled.t#6 (text) ====
Index: perl/ext/threads/shared/t/disabled.t
--- perl/ext/threads/shared/t/disabled.t#5~33360~ 2008-02-24
22:47:17.000000000 -0800
+++ perl/ext/threads/shared/t/disabled.t 2008-06-13 10:06:18.000000000
-0700
@@ -54,4 +54,6 @@
ok( "@array", "1 2 3 4" );
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/hv_refs.t#14 (text) ====
Index: perl/ext/threads/shared/t/hv_refs.t
--- perl/ext/threads/shared/t/hv_refs.t#13~30310~ 2007-02-15
01:34:01.000000000 -0800
+++ perl/ext/threads/shared/t/hv_refs.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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(19, is_shared($foo), "Check for sharing");
ok(20, is_shared(%foo), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/hv_simple.t#7 (text) ====
Index: perl/ext/threads/shared/t/hv_simple.t
--- perl/ext/threads/shared/t/hv_simple.t#6~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/hv_simple.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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(16, is_shared(%hash), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/no_share.t#5 (text) ====
Index: perl/ext/threads/shared/t/no_share.t
--- perl/ext/threads/shared/t/no_share.t#4~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/no_share.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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(6, ! is_shared($test), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/object.t#3 (text) ====
Index: perl/ext/threads/shared/t/object.t
--- perl/ext/threads/shared/t/object.t#2~33154~ 2008-01-31 09:08:22.000000000
-0800
+++ perl/ext/threads/shared/t/object.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,11 +8,11 @@
}
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 @@
ok($$obj == 2, "Main: New object ID $$obj # TODO - should be 2");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/shared_attr.t#4 (text) ====
Index: perl/ext/threads/shared/t/shared_attr.t
--- perl/ext/threads/shared/t/shared_attr.t#3~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/shared_attr.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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 @@
ok($test_count++, $str1 eq $str2, 'contents');
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/stress.t#7 (text) ====
Index: perl/ext/threads/shared/t/stress.t
--- perl/ext/threads/shared/t/stress.t#6~33809~ 2008-05-10 09:06:53.000000000
-0700
+++ perl/ext/threads/shared/t/stress.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,11 +8,11 @@
}
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 @@
}
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/sv_refs.t#8 (text) ====
Index: perl/ext/threads/shared/t/sv_refs.t
--- perl/ext/threads/shared/t/sv_refs.t#7~33809~ 2008-05-10
09:06:53.000000000 -0700
+++ perl/ext/threads/shared/t/sv_refs.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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(21, is_shared($w) == is_shared($$$$w), '_id($w) == _id($$$$w)');
}
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/sv_simple.t#5 (text) ====
Index: perl/ext/threads/shared/t/sv_simple.t
--- perl/ext/threads/shared/t/sv_simple.t#4~28923~ 2006-10-03
06:46:26.000000000 -0700
+++ perl/ext/threads/shared/t/sv_simple.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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(11, is_shared($test), "Check for sharing");
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/wait.t#8 (text) ====
Index: perl/ext/threads/shared/t/wait.t
--- perl/ext/threads/shared/t/wait.t#7~31262~ 2007-05-24 01:18:31.000000000
-0700
+++ perl/ext/threads/shared/t/wait.t 2008-06-13 10:06:18.000000000 -0700
@@ -8,7 +8,7 @@
}
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 block
+exit(0);
+
# EOF
==== //depot/perl/ext/threads/shared/t/waithires.t#6 (text) ====
Index: perl/ext/threads/shared/t/waithires.t
--- perl/ext/threads/shared/t/waithires.t#5~31795~ 2007-09-05
06:53:16.000000000 -0700
+++ perl/ext/threads/shared/t/waithires.t 2008-06-13 10:06:18.000000000
-0700
@@ -8,7 +8,7 @@
}
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 @@
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 block
+exit(0);
+
# EOF
End of Patch.
