This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Added {unlock,lock}_hashref_recurse to @EXPORT_OK
authorAaron Priven <aaron@priven.com>
Wed, 5 Aug 2015 00:08:56 +0000 (20:08 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Wed, 5 Aug 2015 00:13:22 +0000 (20:13 -0400)
In Hash::Util, the functions lock_hashref_recurse and
unlock_hashref_recurse were omitted from the @EXPORT_OK array,
the synopsis in the POD, and the test for exported functions in
t/Util.t. This commit adds those functions in all three places.

For: RT #125730

AUTHORS
ext/Hash-Util/lib/Hash/Util.pm
ext/Hash-Util/t/Util.t

diff --git a/AUTHORS b/AUTHORS
index 6cf729f..c795d6b 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -21,6 +21,7 @@ A. Sinan Unur                 <nanis@cpan.org>
 Aaron Crane                    <arc@cpan.org>
 Aaron B. Dossett               <aaron@iglou.com>
 Aaron J. Mackey                        <ajm6q@virginia.edu>
+Aaron Priven                   <aaron@priven.com>
 Aaron Trevena                  <aaaron.trevena@gmail.com>
 Augustina Blair                        <auggy@cpan.org>
 Abe Timmerman                  <abe@ztreet.demon.nl>
index 40de862..a947b9a 100644 (file)
@@ -31,6 +31,7 @@ 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
                     );
@@ -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
                    );
index b9be7bd..4a12fd1 100644 (file)
@@ -44,6 +44,7 @@ BEGIN {
                      hash_seed hash_value bucket_stats bucket_info bucket_array
                      hv_store
                      lock_hash_recurse unlock_hash_recurse
+                     lock_hashref_recurse unlock_hashref_recurse
                     );
     plan tests => 244 + @Exported_Funcs;
     use_ok 'Hash::Util', @Exported_Funcs;