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