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

 r14186@Rob-Kinyons-PowerBook:  rob | 2006-06-14 11:44:48 -0400
 Almost ready to test-drive Engine2
---

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 7414fae..d6ba021 100644
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -64,39 +64,6 @@ sub key_exists {
     return $self->bucket_exists( $tag, $dig_key, $key );
 }
 
-=pod
-sub key_exists {
-    my $self = shift;
-    my ($trans_id, $base_offset, $key) = @_;
-    
-    my ($_val_offset, $_is_del) = $self->_find_value_offset({
-        offset     => $base_offset,
-        trans_id   => $trans_id,
-        allow_head => 1,
-    });
-    die "Attempt to use a deleted value" if $_is_del;
-    die "Internal error!" if !$_val_offset;
-
-    my ($key_offset) = $self->_find_key_offset({
-        offset  => $_val_offset,
-        key_md5 => $self->_apply_digest( $key ),
-        create  => 0,
-    });
-    return if !$key_offset;
-
-    my ($val_offset, $is_del) = $self->_find_value_offset({
-        offset     => $key_offset,
-        trans_id   => $trans_id,
-        allow_head => 1,
-    });
-
-    return 1 if $is_del;
-
-    die "Internal error!" if !$_val_offset;
-    return '';
-}
-=cut
-
 sub get_next_key {
     my $self = shift;
     my ($trans_id, $offset) = @_;