summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Hash/Util.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
committerKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
commit40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch)
tree2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Hash/Util.pm
parent8e743c86b6872f30b7a35c72aa944455157d4b3f (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.pm6
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;