Remove temporary workaround for clear() and "0" key bug

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index e3188ec..45dc3ff 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -114,7 +114,7 @@ sub next_key { (shift)->NEXTKEY(@_) }
 sub _clear {
     my $self = shift;
 
-    while ( my $key = $self->first_key ) {
+    while ( defined(my $key = $self->first_key) ) {
         $self->_engine->delete_key( $self, $key, $key );
     }
 

diff --git a/t/02_hash.t b/t/02_hash.t
index 6fd66d8..c6646c1 100644 (file)
--- a/t/02_hash.t
+++ b/t/02_hash.t
@@ -97,9 +97,6 @@ is( scalar keys %$db, 1, "After deleting two keys, 1 remains" );
 ##
 ok( $db->clear(), "clear() returns true" );
 
-# ~~~ Temporary band-aid until the fix for RT#50541 is merged
-delete $db->{0};
-
 is( scalar keys %$db, 0, "After clear(), everything is removed" );
 
 ##