projects
/
dbsrgits/DBM-Deep.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
(RT #40782) '0' as a hashkey wasn't iterated over correctly.
[dbsrgits/DBM-Deep.git]
/
lib
/
DBM
/
Deep
/
Hash.pm
diff --git
a/lib/DBM/Deep/Hash.pm
b/lib/DBM/Deep/Hash.pm
index
102f367
..
ec7a7a7
100644
(file)
--- a/
lib/DBM/Deep/Hash.pm
+++ b/
lib/DBM/Deep/Hash.pm
@@
-105,7
+105,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 );
}