diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm b/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm index bbe1066ca5f..dedd3ab4995 100644 --- a/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm +++ b/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm @@ -3,7 +3,7 @@ package Module::CoreList::TieHashDelta; use strict; use vars qw($VERSION); -$VERSION = '5.20151213'; +$VERSION = '5.20170114_24'; sub TIEHASH { my ($class, $changed, $removed, $parent) = @_; @@ -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; |