Change 34149: [PATCH] threads::shared 1.26

[Steve Hay]

Change 34149 by [EMAIL PROTECTED] on 2008/07/16 14:50:37

        Subject: [PATCH] threads::shared 1.26
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 16 Jul 2008 09:47:57 -0400
        Message-ID: <[EMAIL PROTECTED]>
        
        Conditionalize read-only tests for Perl < 5.8.3

Affected files ...

... //depot/perl/ext/threads/shared/shared.pm#65 edit
... //depot/perl/ext/threads/shared/t/clone.t#4 edit

Differences ...

==== //depot/perl/ext/threads/shared/shared.pm#65 (text) ====
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#64~34141~ 2008-07-15 01:25:27.000000000 
-0700
+++ perl/ext/threads/shared/shared.pm   2008-07-16 07:50:37.000000000 -0700
@@ -7,7 +7,7 @@
 
 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 @@
 
 =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<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/>

==== //depot/perl/ext/threads/shared/t/clone.t#4 (text) ====
Index: perl/ext/threads/shared/t/clone.t
--- perl/ext/threads/shared/t/clone.t#3~34141~  2008-07-15 01:25:27.000000000 
-0700
+++ perl/ext/threads/shared/t/clone.t   2008-07-16 07:50:37.000000000 -0700
@@ -131,12 +131,12 @@
 
     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();
 
End of Patch.