From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Thu, 23 Feb 2006 00:33:04 +0000 (+0000)
Subject: Converted DELETE to not call FETCH, but to reimplement it. (There's a refactoring... 
X-Git-Tag: 0-97~20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b6a50567a8b759d4ef56dcc5e3e25bb20977110;p=dbsrgits%2FDBM-Deep.git

Converted DELETE to not call FETCH, but to reimplement it. (There's a refactoring here that needs to be done, I think
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index bb73250..1f81f8d 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -1410,7 +1410,11 @@ sub DELETE {
 	##
 	# Delete bucket
 	##
-    my $value = $self->FETCH( $unpacked_key );
+    my $value = $self->_get_bucket_value( $tag, $md5 );
+	if ($value && !ref($value) && $self->root->{filter_fetch_value}) {
+        $value = $self->root->{filter_fetch_value}->($value);
+    }
+
 	my $result = $self->_delete_bucket( $tag, $md5 );
 	
 	##