added test for freespace management

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Hash.pm

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index 12b9005..8ab84f2 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -87,7 +87,7 @@ sub NEXTKEY {
         ? $self->_root->{filter_store_key}->($_[1])
         : $_[1];
 
-       my $prev_md5 = $DBM::Deep::Engine::DIGEST_FUNC->($prev_key);
+       my $prev_md5 = $self->{engine}{digest}->($prev_key);
 
        ##
        # Request shared lock for reading