diff options
| -rw-r--r-- | ext/threads/shared/shared.pm | 6 | ||||
| -rw-r--r-- | ext/threads/shared/t/clone.t | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm index 935e8f21c1..f96a59fa40 100644 --- a/ext/threads/shared/shared.pm +++ b/ext/threads/shared/shared.pm @@ -7,7 +7,7 @@ use warnings; use Scalar::Util qw(reftype refaddr blessed); -our $VERSION = '1.25'; +our $VERSION = '1.26'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -187,7 +187,7 @@ threads::shared - Perl extension for sharing data structures between threads =head1 VERSION -This document describes threads::shared version 1.25 +This document describes threads::shared version 1.26 =head1 SYNOPSIS @@ -541,7 +541,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.25/shared.pm> +L<http://annocpan.org/~JDHEDDEN/threads-shared-1.26/shared.pm> Source repository: L<http://code.google.com/p/threads-shared/> diff --git a/ext/threads/shared/t/clone.t b/ext/threads/shared/t/clone.t index 7969d53c17..64ef93a74e 100644 --- a/ext/threads/shared/t/clone.t +++ b/ext/threads/shared/t/clone.t @@ -131,12 +131,12 @@ ok($test++, 1, 'Loaded'); my $bork = shared_clone($obj); ok($test++, $$bork == 99, 'cloned scalar ref object'); - ok($test++, Internals::SvREADONLY($$bork), 'read-only'); + ok($test++, ($] < 5.008003) || Internals::SvREADONLY($$bork), 'read-only'); ok($test++, ref($bork) eq 'Bork', 'Object class'); threads->create(sub { ok($test++, $$bork == 99, 'cloned scalar ref object in thread'); - ok($test++, Internals::SvREADONLY($$bork), 'read-only'); + ok($test++, ($] < 5.008003) || Internals::SvREADONLY($$bork), 'read-only'); ok($test++, ref($bork) eq 'Bork', 'Object class'); })->join(); |