Don't leave DB locked after pruning an empty DB

This commit is contained in:
Jared Johnson 2015-03-05 18:34:13 -06:00
parent a8b2376e80
commit 4106da56d1

View File

@ -502,7 +502,7 @@ sub prune_db {
my @to_delete;
my $greylist = {};
my @keys = $self->db->get_keys or return;
my @keys = $self->db->get_keys or return $self->db->unlock;
@$greylist{ @keys } = ( $self->db->mget(@keys) );
for my $key ( @keys ) {
my ($ts) = split /:/, delete $greylist->{$key};
@ -510,7 +510,7 @@ sub prune_db {
next if $age < $self->{_args}{white_timeout};
push @to_delete, $key;
}
return if ! @to_delete;
return $self->db->unlock if ! @to_delete;
my $pruned = $self->db->delete(@to_delete);
$self->db->unlock;
$self->log(LOGINFO, "pruned $pruned of $count DB entries");