In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9baa246cc16b03dcc8354a141d54bb5c40fb99b1?hp=fa44d9619c1bcdda9c9542b5cb83799dd812b53b>
- Log ----------------------------------------------------------------- commit 9baa246cc16b03dcc8354a141d54bb5c40fb99b1 Author: Niko Tyni <[email protected]> Date: Tue Apr 26 17:34:51 2016 -0400 corelist: silence deep recursion warning with %version M dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm M dist/Module-CoreList/t/corelist.t commit 86ee67245c9257164559d6ced91f64313cea334f Author: Aristotle Pagaltzis <[email protected]> Date: Tue Apr 26 17:32:43 2016 -0400 Remove some data detritus from CoreList M dist/Module-CoreList/lib/Module/CoreList.pm ----------------------------------------------------------------------- Summary of changes: dist/Module-CoreList/lib/Module/CoreList.pm | 2 -- dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm | 3 +++ dist/Module-CoreList/t/corelist.t | 8 +++++++- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 7e7ce7f..6acfd31 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -9909,7 +9909,6 @@ for my $version ( sort { $a <=> $b } keys %released ) { 'Module::Build::Version'=> 1, 'Module::Build::YAML' => 1, 'Package::Constants' => 1, - 'Simple' => 1, 'inc::latest' => 1, } }, @@ -12834,7 +12833,6 @@ for my $version (sort { $a <=> $b } keys %delta) { 'Module::Build::Version'=> 1, 'Module::Build::YAML' => 1, 'Package::Constants' => 1, - 'Simple' => 1, 'inc::latest' => 1, } }, diff --git a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm index 94507d7..c58bc4c 100644 --- a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm +++ b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm @@ -48,6 +48,9 @@ sub FIRSTKEY { my ($self) = @_; if (not $self->{keys_inflated}) { + # exceeds the warning limit of 100 calls since 5.23.2 + no warnings 'recursion'; + # This inflates the whole set of hashes... Somewhat expensive, but saves # many tied hash calls later. my @parent_keys; diff --git a/dist/Module-CoreList/t/corelist.t b/dist/Module-CoreList/t/corelist.t index db09f48..4adbbe9 100644 --- a/dist/Module-CoreList/t/corelist.t +++ b/dist/Module-CoreList/t/corelist.t @@ -1,7 +1,7 @@ #!perl -w use strict; use Module::CoreList; -use Test::More tests => 32; +use Test::More tests => 34; BEGIN { require_ok('Module::CoreList'); } @@ -105,6 +105,12 @@ is(Module::CoreList::removed_from('CPANPLUS::inc'), 5.010001, cmp_ok($warnings_count, '==', 0, "an undefined version does not produce warnings rt#123556"); + + ok(keys %{$Module::CoreList::version{5.023002}} > 0, + "have recent enough data to test for deep recursion warnings"); + + cmp_ok($warnings_count, '==', 0, + "no deep recursion warnings for newer perl versions"); } ok(! defined(Module::CoreList->find_version()), -- Perl5 Master Repository
