ok(! defined($rc), 'Exited: threads->exit()');
-run_perl(prog => 'use threads 1.66;' .
+run_perl(prog => 'use threads 1.67;' .
'threads->exit(86);' .
'exit(99);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
-run_perl(prog => 'use threads 1.66 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.67 qw(exit thread_only);' .
'threads->create(sub { exit(99); })->join();' .
'exit(86);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
}
-my $out = run_perl(prog => 'use threads 1.66;' .
+my $out = run_perl(prog => 'use threads 1.67;' .
'threads->create(sub {' .
' exit(99);' .
'});' .
like($out, '1 finished and unjoined', "exit(status) in thread");
-$out = run_perl(prog => 'use threads 1.66 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.67 qw(exit thread_only);' .
'threads->create(sub {' .
' threads->set_thread_exit_only(0);' .
' exit(99);' .
like($out, '1 finished and unjoined', "set_thread_exit_only(0)");
-run_perl(prog => 'use threads 1.66;' .
+run_perl(prog => 'use threads 1.67;' .
'threads->create(sub {' .
' $SIG{__WARN__} = sub { exit(99); };' .
' die();' .
# bugid #24165
-run_perl(prog => 'use threads 1.66;' .
+run_perl(prog => 'use threads 1.67;' .
'sub a{threads->create(shift)} $t = a sub{};' .
'$t->tid; $t->join; $t->tid',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
EOI
# test CLONE_SKIP() functionality
-if ($] >= 5.008007) {
+SKIP: {
+ skip('CLONE_SKIP not implemented in Perl < 5.8.7', 5) if ($] < 5.008007);
+
my %c : shared;
my %d : shared;
)
}),
"counts of calls to DESTROY");
-
-} else {
- print("ok 29 # Skip objs clone skip at depth 0\n");
- print("ok 30 # Skip objs clone skip at depth 1\n");
- print("ok 31 # Skip objs clone skip at depth 2\n");
- print("ok 32 # Skip counts of calls to CLONE_SKIP\n");
- print("ok 33 # Skip counts of calls to DESTROY\n");
}
# EOF
use strict;
use warnings;
-our $VERSION = '1.66';
+our $VERSION = '1.67';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
=head1 VERSION
-This document describes threads version 1.66
+This document describes threads version 1.67
=head1 SYNOPSIS
L<http://www.cpanforum.com/dist/threads>
Annotated POD for L<threads>:
-L<http://annocpan.org/~JDHEDDEN/threads-1.66/threads.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-1.67/threads.pm>
Source repository:
L<http://code.google.com/p/threads-shared/>