First checkin of the reversion back from the failed optimization effort. I will be...

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

diff --git a/lib/DBM/Deep/Engine/Sector/Reference.pm b/lib/DBM/Deep/Engine/Sector/Reference.pm
index 0c5e215..de102c5 100644 (file)
--- a/lib/DBM/Deep/Engine/Sector/Reference.pm
+++ b/lib/DBM/Deep/Engine/Sector/Reference.pm
@@ -454,11 +454,11 @@ sub free {
     bless $self->engine->cache->{ $self->offset }, 'DBM::Deep::Null';
     delete $self->engine->cache->{ $self->offset };
 
-    my $blist_loc = $self->get_blist_loc;
-    $self->engine->_load_sector( $blist_loc )->free if $blist_loc;
-
-    my $class_loc = $self->get_class_offset;
-    $self->engine->_load_sector( $class_loc )->free if $class_loc;
+    foreach my $meth ( qw( get_blist_loc get_class_offset ) ) {
+        my $l = $self->$meth;
+        my $s = $self->engine->_load_sector( $l );
+        $s->free if $s;
+    }
 
     $self->SUPER::free();
 }