Re: restricted hashes are unblessable

[p5sagit/p5-mst-13.2.git] / lib / Hash / Util.pm

diff --git a/lib/Hash/Util.pm b/lib/Hash/Util.pm
index 528711a..a1c9e64 100644 (file)
--- a/lib/Hash/Util.pm
+++ b/lib/Hash/Util.pm
@@ -71,6 +71,7 @@ Removes the restriction on the %hash's keyset.
 sub lock_keys (\%;@) {
     my($hash, @keys) = @_;
 
+    Internals::hv_clear_placeholders %$hash;
     if( @keys ) {
         my %keys = map { ($_ => 1) } @keys;
         my %original_keys = map { ($_ => 1) } keys %$hash;