From 40b4b6e177c62a14c166dbba6adf3abc415af4b2 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 18 Apr 2017 23:10:57 +0000 Subject: tlperl 5.24.1 from siep git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Hash/Util.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/Hash/Util.pm') 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; -- cgit v1.2.3