In perl.git, the branch sawyer/storable has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/feb8eb8120992fda19f4de079c37d4a5cd695b1c?hp=4a010442b615c0a86ae9ca0cf845f1734b0678ae>
- Log -----------------------------------------------------------------
commit feb8eb8120992fda19f4de079c37d4a5cd695b1c
Author: H.Merijn Brand <h.m.br...@xs4all.nl>
Date: Sun Apr 22 14:08:00 2018 +0200
Skip test on archaic perl versions
commit 27ccd1ace6cf3927acbf8bbfb84cb00b96a7046d
Author: H.Merijn Brand <h.m.br...@xs4all.nl>
Date: Sun Apr 22 14:07:32 2018 +0200
Storable needs EU::MM-6.31
1. sawyer really wants LICENSE in the attributes, which was introduced
in EU::MM 6.31, which claims to support 5.6.1. (I verified that this
- M/MS/MSCHWERN/ExtUtils-MakeMaker-6.31.tar.gz - indeed does
2. $(PERLRUN) was not available in the EU::MM-5.45 as shipped with 5.6.1
-----------------------------------------------------------------------
Summary of changes:
dist/Storable/Makefile.PL | 2 +-
dist/Storable/t/dclone.t | 2 ++
dist/Storable/t/threads.t | 4 ++++
3 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/dist/Storable/Makefile.PL b/dist/Storable/Makefile.PL
index 54c17769f3..4dc60b3451 100644
--- a/dist/Storable/Makefile.PL
+++ b/dist/Storable/Makefile.PL
@@ -8,7 +8,7 @@
use strict;
use warnings;
-use ExtUtils::MakeMaker;
+use ExtUtils::MakeMaker 6.31;
use Config;
use File::Copy qw(move copy);
use File::Spec;
diff --git a/dist/Storable/t/dclone.t b/dist/Storable/t/dclone.t
index af3d7f6abf..ce6c756a19 100644
--- a/dist/Storable/t/dclone.t
+++ b/dist/Storable/t/dclone.t
@@ -87,6 +87,8 @@ SKIP: {
# Do not fail if Tie::Hash and/or Tie::StdHash is not available
skip 'No Tie::StdHash available', 2
unless eval { require Tie::Hash; scalar keys %Tie::StdHash:: };
+ skip 'This version of perl has problems with Tie::StdHash', 2
+ if $] eq "5.008";
tie my %tie, "Tie::StdHash" or die $!;
$tie{array} = [1,2,3,4];
$tie{hash} = {1,2,3,4};
diff --git a/dist/Storable/t/threads.t b/dist/Storable/t/threads.t
index 0bc2486991..0b34334cff 100644
--- a/dist/Storable/t/threads.t
+++ b/dist/Storable/t/threads.t
@@ -28,6 +28,10 @@ sub BEGIN {
print "1..0 # Skip: no threads\n";
exit 0;
}
+ if ($] eq "5.008" || $] eq "5.010000") {
+ print "1..0 # Skip: threads unreliable in perl-$]\n";
+ exit 0;
+ }
# - is \W, so can't use \b at start. Negative look ahead and look behind
# works at start/end of string, or where preceded/followed by spaces
if ($] == 5.008002 and eval q{ $Config{'ccflags'} =~
/(?<!\S)-DDEBUGGING(?!\S)/ }) {
--
Perl5 Master Repository
