Removed branch that ended up not being needed
rkinyon [Tue, 25 Sep 2007 01:37:30 +0000 (01:37 +0000)]
lib/DBM/Deep/Engine.pm

index ea8b794..4efd777 100644 (file)
@@ -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;