Merge pull request #2 from Dual-Life/develop

1.52 - Update test.pl

Changes

@@ -3,6 +3,9 @@ Revision history for Perl extension threads::shared.
 -
 	-
 
+1.52 Mon May 16 18:46:52 2016
+	- Make t/test.pl compatible with Perls < 5.10 (again)
+
 1.51 Fri Apr 22 19:05:18 2016
 	- Documented that 'bless' does not propagate to nested shared items.
 

Makefile.PL

@@ -67,7 +67,6 @@ WriteMakefile(
         'Scalar::Util'      => 0,
         'threads'           => 1.73,
 
-        'Test'              => 0,
         'Test::More'        => 0,
         'ExtUtils::testlib' => 0,
     },

README

@@ -1,4 +1,4 @@
-threads::shared version 1.51
+threads::shared version 1.52
 ============================
 
 This module needs Perl 5.8.0 or later compiled with USEITHREADS.

README.md

@@ -1,5 +1,7 @@
 # threads-shared
-The 'threads-shared' module for Perl.
+Perl extension for sharing data structures between threads.
 
 This module is dual-lived in both the core Perl distribution and on CPAN.
 
+Detailed information regarding this module can be found on [MetaCPAN](https://metacpan.org/pod/threads::shared).
+

lib/threads/shared.pm

@@ -7,7 +7,7 @@ use warnings;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.51'; # Please update the pod, too.
+our $VERSION = '1.52'; # Please update the pod, too.
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -195,7 +195,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.51
+This document describes threads::shared version 1.52
 
 =head1 SYNOPSIS
 
@@ -646,8 +646,11 @@ to: L<http://rt.cpan.org/Public/Dist/Display.html?Name=threads-shared>
 
 =head1 SEE ALSO
 
-L<threads::shared> Discussion Forum on CPAN:
-L<http://www.cpanforum.com/dist/threads-shared>
+threads::shared on MetaCPAN:
+L<https://metacpan.org/release/threads-shared>
+
+Code repository for CPAN distribution:
+L<https://github.com/Dual-Life/threads-shared>
 
 L<threads>, L<perlthrtut>
 
@@ -657,6 +660,8 @@ L<http://www.perl.com/pub/a/2002/09/04/threads.html>
 Perl threads mailing list:
 L<http://lists.perl.org/list/ithreads.html>
 
+Sample code in the I<examples> directory of this distribution on CPAN.
+
 =head1 AUTHOR
 
 Artur Bergman E<lt>sky AT crucially DOT netE<gt>

t/test.pl

@@ -4,9 +4,9 @@
 
 # NOTE:
 #
-# It's best to not features found only in more modern Perls here, as some cpan
-# distributions copy this file and operate on older Perls.  Similarly keep
-# things simple as this may be run under fairly broken circumstances.  For
+# Do not rely on features found only in more modern Perls here, as some CPAN
+# distributions copy this file and must operate on older Perls. Similarly, keep
+# things, simple as this may be run under fairly broken circumstances. For
 # example, increment ($x++) has a certain amount of cleverness for things like
 #
 #   $x = 'zz';
@@ -284,6 +284,12 @@ sub _qq {
     return defined $x ? '"' . display ($x) . '"' : 'undef';
 };
 
+# Support pre-5.10 Perls, for the benefit of CPAN dists that copy this file.
+# Note that chr(90) exists in both ASCII ("Z") and EBCDIC ("!").
+my $chars_template = defined(eval { pack "W*", 90 }) ? "W*" : "U*";
+eval 'sub re::is_regexp { ref($_[0]) eq "Regexp" }'
+    if !defined &re::is_regexp;
+
 # keys are the codes \n etc map to, values are 2 char strings such as \n
 my %backslash_escape;
 foreach my $x (split //, 'nrtfa\\\'"') {
@@ -296,7 +302,7 @@ sub display {
     foreach my $x (@_) {
         if (defined $x and not ref $x) {
             my $y = '';
-            foreach my $c (unpack("W*", $x)) {
+            foreach my $c (unpack($chars_template, $x)) {
                 if ($c > 255) {
                     $y = $y . sprintf "\\x{%x}", $c;
                 } elsif ($backslash_escape{$c}) {