From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Thu, 25 May 2006 18:21:50 +0000 (+0000)
Subject:  r13305@rob-kinyons-powerbook58:  rob | 2006-05-18 15:18:06 -0400
X-Git-Tag: 0-99_03~31
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cb639bd2c98ba7c358c0c39754f7645797eba3f;p=dbsrgits%2FDBM-Deep.git

 r13305@rob-kinyons-powerbook58:  rob | 2006-05-18 15:18:06 -0400
 Removed cause of unitialized warnings
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index e740135..a1c3781 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -486,18 +486,12 @@ sub STORE {
     ##
     $self->lock( LOCK_EX );
 
-    # User may be storing a hash, in which case we do not want it run
-    # through the filtering system
+    # User may be storing a complex value, in which case we do not want it run
+    # through the filtering system.
     if ( !ref($value) && $self->_fileobj->{filter_store_value} ) {
         $value = $self->_fileobj->{filter_store_value}->( $value );
     }
 
-    ##
-    # Add key/value to bucket list
-    ##
-#    my $md5 = $self->_engine->apply_digest($key);
-#    my $tag = $self->_engine->find_blist( $self->_base_offset, $md5, { create => 1 } );
-#    $self->_engine->add_bucket( $tag, $md5, $key, $value, undef, $orig_key ); 
     $self->_engine->write_value( $self->_base_offset, $key, $value, $orig_key );
 
     $self->unlock();
@@ -511,7 +505,7 @@ sub FETCH {
     ##
     my $self = shift->_get_self;
     my ($key, $orig_key) = @_;
-    $orig_key = $key unless @_ > 1;
+    $orig_key = $key unless defined $orig_key;
 
     my $md5 = $self->_engine->apply_digest($key);