threads::shared 1.26
authorJerry D. Hedden <jdhedden@cpan.org>
Wed, 16 Jul 2008 09:47:57 +0000 (05:47 -0400)
committerSteve Hay <SteveHay@planit.com>
Wed, 16 Jul 2008 14:50:37 +0000 (14:50 +0000)
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

ext/threads/shared/shared.pm
ext/threads/shared/t/clone.t

index 935e8f2..f96a59f 100644 (file)
@@ -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/>
index 7969d53..64ef93a 100644 (file)
@@ -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();