return undef is of questionable style.

p4raw-id: //depot/perl@15924

diff --git a/lib/Hash/Util.pm b/lib/Hash/Util.pm
index a1c9e64..f6dcd7e 100644 (file)
--- a/lib/Hash/Util.pm
+++ b/lib/Hash/Util.pm
@@ -94,14 +94,14 @@ sub lock_keys (\%;@) {
         Internals::SvREADONLY %$hash, 1;
     }
 
-    return undef;
+    return;
 }
 
 sub unlock_keys (\%) {
     my($hash) = shift;
 
     Internals::SvREADONLY %$hash, 0;
-    return undef;
+    return;
 }
 
 =item lock_value