[libmodule-corelist-perl] 01/03: Imported Upstream version 5.021002
Salvatore Bonaccorso
carnil at debian.org
Sun Jul 20 19:26:36 UTC 2014
This is an automated email from the git hooks/post-receive script.
carnil pushed a commit to branch master
in repository libmodule-corelist-perl.
commit b03a2bb434fb336492db31cbc5f7884a7db5593c
Author: Salvatore Bonaccorso <carnil at debian.org>
Date: Sun Jul 20 21:25:39 2014 +0200
Imported Upstream version 5.021002
---
Changes | 5 +++-
MANIFEST | 1 -
META.json | 2 +-
META.yml | 2 +-
lib/Module/CoreList.pm | 51 ++++++++++++++++++++++++++++++++++++-
lib/Module/CoreList.pod | 2 +-
lib/Module/CoreList/TieHashDelta.pm | 6 +++--
lib/Module/CoreList/Utils.pm | 9 ++++++-
t/corevers.t | 21 ---------------
9 files changed, 69 insertions(+), 30 deletions(-)
diff --git a/Changes b/Changes
index faf147e..fcd153e 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,7 @@
-5.021001
+5.021002
+ - Prepared for v5.21.2
+
+5.021001_01
- Prepared for v5.21.1
3.11
diff --git a/MANIFEST b/MANIFEST
index 4ce5fa9..9b2b202 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -10,7 +10,6 @@ MANIFEST
Makefile.PL
META.yml
t/corelist.t
-t/corevers.t
t/deprecated.t
t/find_modules.t
t/is_core.t
diff --git a/META.json b/META.json
index 8c052c3..078c857 100644
--- a/META.json
+++ b/META.json
@@ -48,5 +48,5 @@
"url" : "git://perl5.git.perl.org/perl.git"
}
},
- "version" : "5.021001"
+ "version" : "5.021002"
}
diff --git a/META.yml b/META.yml
index b638f57..66a2b99 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ resources:
bugtracker: https://rt.perl.org/rt3/
homepage: http://dev.perl.org/
repository: git://perl5.git.perl.org/perl.git
-version: '5.021001'
+version: '5.021002'
diff --git a/lib/Module/CoreList.pm b/lib/Module/CoreList.pm
index 2013991..7ed0ea2 100644
--- a/lib/Module/CoreList.pm
+++ b/lib/Module/CoreList.pm
@@ -4,7 +4,7 @@ use vars qw/$VERSION %released %version %families %upstream
%bug_tracker %deprecated %delta/;
use Module::CoreList::TieHashDelta;
use version;
-$VERSION = '5.021001';
+$VERSION = '5.021002';
my $dumpinc = 0;
sub import {
@@ -251,6 +251,7 @@ sub changes_between {
5.020000 => '2014-05-27',
5.021000 => '2014-05-27',
5.021001 => '2014-06-20',
+ 5.021002 => '2014-07-20',
);
for my $version ( sort { $a <=> $b } keys %released ) {
@@ -10040,6 +10041,47 @@ for my $version ( sort { $a <=> $b } keys %released ) {
removed => {
}
},
+ 5.021002 => {
+ delta_from => 5.021001,
+ changed => {
+ 'B' => '1.50',
+ 'Config' => '5.021002',
+ 'Cwd' => '3.49',
+ 'Devel::Peek' => '1.18',
+ 'ExtUtils::Manifest' => '1.64',
+ 'File::Copy' => '2.30',
+ 'File::Spec' => '3.49',
+ 'File::Spec::Cygwin' => '3.49',
+ 'File::Spec::Epoc' => '3.49',
+ 'File::Spec::Functions' => '3.49',
+ 'File::Spec::Mac' => '3.49',
+ 'File::Spec::OS2' => '3.49',
+ 'File::Spec::Unix' => '3.49',
+ 'File::Spec::VMS' => '3.49',
+ 'File::Spec::Win32' => '3.49',
+ 'Filter::Simple' => '0.92',
+ 'Hash::Util' => '0.18',
+ 'IO' => '1.33',
+ 'IO::Socket::IP' => '0.31',
+ 'IPC::Open3' => '1.17',
+ 'Math::BigFloat' => '1.9996',
+ 'Math::BigInt' => '1.9996',
+ 'Math::BigInt::Calc' => '1.9996',
+ 'Math::BigInt::CalcEmu' => '1.9996',
+ 'Module::CoreList' => '5.021002',
+ 'Module::CoreList::TieHashDelta'=> '5.021002',
+ 'Module::CoreList::Utils'=> '5.021002',
+ 'POSIX' => '1.41',
+ 'Pod::Usage' => '1.64',
+ 'XS::APItest' => '0.62',
+ 'arybase' => '0.08',
+ 'experimental' => '0.008',
+ 'threads' => '1.95',
+ 'warnings' => '1.26',
+ },
+ removed => {
+ }
+ },
);
sub is_core
@@ -10455,6 +10497,13 @@ for my $version (sort { $a <=> $b } keys %delta) {
removed => {
}
},
+ 5.021002 => {
+ delta_from => 5.021001,
+ changed => {
+ },
+ removed => {
+ }
+ },
);
for my $version (sort { $a <=> $b } keys %deprecated) {
diff --git a/lib/Module/CoreList.pod b/lib/Module/CoreList.pod
index cc6ad1a..be37e4d 100644
--- a/lib/Module/CoreList.pod
+++ b/lib/Module/CoreList.pod
@@ -230,7 +230,7 @@ Module::CoreList currently covers the 5.000, 5.001, 5.002, 5.003_07,
5.15.9, 5.16.0, 5.16.1, 5.16.2, 5.16.3, 5.17.0, 5.17.1, 5.17.2, 5.17.3,
5.17.4, 5.17.5, 5.17.6, 5.17.7, 5.17.8, 5.17.9, 5.17.10, 5.17.11, 5.18.0,
5.19.0, 5.19.1, 5.19.2, 5.19.3, 5.19.4, 5.19.5, 5.19.6, 5.19.7, 5.19.8,
-5.19.9, 5.19.10, 5.19.11, 5.20.0, 5.21.0 and 5.21.1 releases of perl.
+5.19.9, 5.19.10, 5.19.11, 5.20.0, 5.21.0, 5.21.1 and 5.21.2 releases of perl.
=head1 HISTORY
diff --git a/lib/Module/CoreList/TieHashDelta.pm b/lib/Module/CoreList/TieHashDelta.pm
index 24d1e65..a9fd403 100644
--- a/lib/Module/CoreList/TieHashDelta.pm
+++ b/lib/Module/CoreList/TieHashDelta.pm
@@ -3,7 +3,7 @@ package Module::CoreList::TieHashDelta;
use strict;
use vars qw($VERSION);
-$VERSION = '5.021001';
+$VERSION = '5.021002';
sub TIEHASH {
my ($class, $changed, $removed, $parent) = @_;
@@ -32,12 +32,14 @@ sub FETCH {
sub EXISTS {
my ($self, $key) = @_;
+ restart:
if (exists $self->{changed}{$key}) {
return 1;
} elsif (exists $self->{removed}{$key}) {
return '';
} elsif (defined $self->{parent}) {
- return exists $self->{parent}{$key};
+ $self = tied %{$self->{parent}}; #avoid extreme magic/tie recursion
+ goto restart;
}
return '';
}
diff --git a/lib/Module/CoreList/Utils.pm b/lib/Module/CoreList/Utils.pm
index a6f9141..218c37a 100644
--- a/lib/Module/CoreList/Utils.pm
+++ b/lib/Module/CoreList/Utils.pm
@@ -6,7 +6,7 @@ use vars qw[$VERSION %utilities];
use Module::CoreList;
use Module::CoreList::TieHashDelta;
-$VERSION = '5.021001';
+$VERSION = '5.021002';
sub utilities {
my $perl = shift;
@@ -936,6 +936,13 @@ my %delta = (
's2p' => 1,
}
},
+ 5.021002 => {
+ delta_from => 5.021001,
+ changed => {
+ },
+ removed => {
+ }
+ },
);
for my $version (sort { $a <=> $b } keys %delta) {
diff --git a/t/corevers.t b/t/corevers.t
deleted file mode 100644
index 09d5d72..0000000
--- a/t/corevers.t
+++ /dev/null
@@ -1,21 +0,0 @@
-#!perl -w
-use strict;
-use Test::More;
-
-plan skip_all => 'This is perl core-only test' unless $ENV{PERL_CORE};
-plan skip_all => 'Special case v5.21.1 because rjbs' if sprintf("v%vd", $^V) eq 'v5.21.1';
-
-my @modules = qw[
- Module::CoreList
- Module::CoreList::Utils
- Module::CoreList::TieHashDelta
-];
-
-plan tests => scalar @modules;
-
-foreach my $mod ( @modules ) {
- eval "require $mod";
- my $vers = eval $mod->VERSION;
- ok( !( $vers < $] || $vers > $] ), "$mod version should match perl version in core" )
- or diag("$mod $vers doesn't match $]");
-}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmodule-corelist-perl.git
More information about the Pkg-perl-cvs-commits
mailing list