diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-07-16 05:47:57 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-16 14:50:37 +0000 |
| commit | e4ddb720ddf87cf005484db4d93ec3905828f900 (patch) | |
| tree | e528864e7d5b7560de69442c0622d1b13b6e05dd /ext | |
| parent | 966e8138915c735d0b4894d8edbb294e615d1307 (diff) | |
| download | perl-e4ddb720ddf87cf005484db4d93ec3905828f900.tar.gz | |
threads::shared 1.26
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807160647q777f0eefj388b342f57c8f49f@mail.gmail.com>
Conditionalize read-only tests for Perl < 5.8.3
p4raw-id: //depot/perl@34149
Diffstat (limited to 'ext')
| -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(); |