Upgrade to threads::shared 1.59

Committer: perldelta entry

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index eb9b4e0..0e4a45a 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1140,7 +1140,7 @@ use File::Glob qw(:case);
     },
 
     'threads::shared' => {
-        'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.58.tar.gz',
+        'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.59.tar.gz',
         'FILES'        => q[dist/threads-shared],
         'EXCLUDED'     => [
             qw( examples/class.pl

diff --git a/dist/threads-shared/lib/threads/shared.pm b/dist/threads-shared/lib/threads/shared.pm
index b9ba66e..f7e5ff8 100644 (file)
--- a/dist/threads-shared/lib/threads/shared.pm
+++ b/dist/threads-shared/lib/threads/shared.pm
@@ -4,10 +4,11 @@ use 5.008;
 
 use strict;
 use warnings;
+use Config;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.58'; # Please update the pod, too.
+our $VERSION = '1.59'; # Please update the pod, too.
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -18,7 +19,7 @@ $threads::shared::threads_shared = 1;
 $threads::shared::clone_warn = undef;
 
 # Load the XS code, if applicable
-if ($threads::threads) {
+if ($Config::Config{'useithreads'} && $threads::threads) {
     require XSLoader;
     XSLoader::load('threads::shared', $XS_VERSION);
 
@@ -195,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.58
+This document describes threads::shared version 1.59
 
 =head1 SYNOPSIS
 

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 18e2e17..90c8480 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -125,6 +125,10 @@ XXX Remove this section if not applicable.
 
 =item *
 
+L<threads::shared> has been upgraded from version 1.58 to 1.59.
+
+=item *
+
 L<XXX> has been upgraded from version A.xx to B.yy.
 
 If there was something important to note about this change, include that here.