From: rkinyon Date: Tue, 25 Sep 2007 01:37:30 +0000 (+0000) Subject: Removed branch that ended up not being needed X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a36550049df187ef3d8b63a4d83056ca1fd2a96;p=dbsrgits%2FDBM-Deep.git Removed branch that ended up not being needed --- diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm index ea8b794..4efd777 100644 --- a/lib/DBM/Deep/Engine.pm +++ b/lib/DBM/Deep/Engine.pm @@ -1170,6 +1170,8 @@ sub _init { package DBM::Deep::Engine::Sector::Reference; +# XXX This is where we're going to add the refcounting + our @ISA = qw( DBM::Deep::Engine::Sector::Data ); sub _init { @@ -1196,6 +1198,7 @@ sub _init { $e->storage->print_at( $self->offset + $self->base_size, pack( $StP{$e->byte_size}, 0 ), # Index/BList loc pack( $StP{$e->byte_size}, $class_offset ), # Classname loc + # XXX Add the recounting location here. We can take $e->byte_size bytes. chr(0) x $leftover, # Zero-fill the rest ); } @@ -1773,6 +1776,7 @@ sub delete_md5 { $key_sector->free; + # XXX Here is where we add the recount decrement check my $data_sector = $self->engine->_load_sector( $location ); my $data = $data_sector->data; $data_sector->free;