r14236@Rob-Kinyons-PowerBook: rob | 2006-06-14 23:07:31 -0400

 Engine2 kinda works ...

diff --git a/lib/DBM/Deep/Engine2.pm b/lib/DBM/Deep/Engine2.pm
index 6f73410..5972099 100644 (file)
--- a/lib/DBM/Deep/Engine2.pm
+++ b/lib/DBM/Deep/Engine2.pm
@@ -148,6 +148,7 @@ sub delete_key {
     return if !$key_tag->{start};
 
     my $value = $self->read_value( $trans_id, $base_offset, $key );
+    my $value = $self->read_value( $trans_id, $base_offset, $key );
     if ( $trans_id ) {
         $self->_mark_as_deleted({
             tag      => $key_tag,
@@ -255,8 +256,6 @@ sub _find_value_offset {
     my $self = shift;
     my ($args) = @_;
 
-    use Data::Dumper;warn Dumper $args;
-
     my $key_tag = $self->load_tag( $args->{offset} );
 
     my @head;