read_txn_slots has been moved into the FileHeader sector.

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

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 9c41951..7edcd05 100644 (file)
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -567,13 +567,7 @@ sub commit {
 
 sub read_txn_slots {
     my $self = shift;
-    my $bl = $self->txn_bitfield_len;
-    my $num_bits = $bl * 8;
-    return split '', unpack( 'b'.$num_bits,
-        $self->storage->read_at(
-            $self->trans_loc, $bl,
-        )
-    );
+    return $self->_load_header->read_txn_slots;
 }
 
 sub write_txn_slots {
@@ -690,7 +684,6 @@ sub _request_sector       { shift->_load_header->request_sector( @_ ) }
         my $self = shift;
         my ($offset) = @_;
 
-        #warn join(':',(caller)[0,2]) . " -> $offset\n";
         my $data = $self->get_data( $offset )
             or return;#die "Cannot read from '$offset'\n";
         my $type = substr( $$data, 0, 1 );