From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 19 Jun 2006 13:12:40 +0000 (+0000)
Subject:  r14236@Rob-Kinyons-PowerBook:  rob | 2006-06-14 23:07:31 -0400
X-Git-Tag: 0-99_03~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11eb1592e0b263ec2fb9b33cd54be30f87bef54e;p=dbsrgits%2FDBM-Deep.git

 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
--- 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;