diff options
author | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
commit | 40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch) | |
tree | 2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Hash/Util.pm | |
parent | 8e743c86b6872f30b7a35c72aa944455157d4b3f (diff) |
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Hash/Util.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Hash/Util.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Hash/Util.pm b/Master/tlpkg/tlperl/lib/Hash/Util.pm index da0251059cf..a947b9a76ef 100644 --- a/Master/tlpkg/tlperl/lib/Hash/Util.pm +++ b/Master/tlpkg/tlperl/lib/Hash/Util.pm @@ -31,10 +31,11 @@ our @EXPORT_OK = qw( hash_seed hash_value hv_store bucket_stats bucket_stats_formatted bucket_info bucket_array lock_hash_recurse unlock_hash_recurse + lock_hashref_recurse unlock_hashref_recurse hash_traversal_mask ); -our $VERSION = '0.18'; +our $VERSION = '0.19'; require XSLoader; XSLoader::load(); @@ -78,6 +79,7 @@ Hash::Util - A selection of general-utility hash subroutines hash_seed hash_value hv_store bucket_stats bucket_info bucket_array lock_hash_recurse unlock_hash_recurse + lock_hashref_recurse unlock_hashref_recurse hash_traversal_mask ); @@ -364,7 +366,7 @@ sub unlock_hashref_recurse { if (defined($type) and $type eq 'HASH') { unlock_hashref_recurse($value); } - Internals::SvREADONLY($value,1); + Internals::SvREADONLY($value,0); } unlock_ref_keys($hash); return $hash; |