From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 16 Jul 2008 09:47:57 +0000 (-0400)
Subject: threads::shared 1.26
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4ddb720ddf87cf005484db4d93ec3905828f900;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index 935e8f2..f96a59f 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 7969d53..64ef93a 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();