From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Tue, 14 Nov 2006 05:28:31 +0000 (+0000)
Subject: First pass at cleanup
X-Git-Tag: 0-99_03~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9bc79bb694ceeca19347da241c22726b24cecc44;p=dbsrgits%2FDBM-Deep.git

First pass at cleanup
---

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index bfbd594..53c5d50 100644
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -1,6 +1,6 @@
 package DBM::Deep::Engine;
 
-use Sub::Caller qw( load_tag );
+#use Sub::Caller qw( load_tag );
 
 use 5.6.0;
 
@@ -361,7 +361,7 @@ sub load_tag {
     ##
     my $self = shift;
     my ($offset) = @_;
-    print join(":",caller) . " - load_tag($offset)\n" if $::DEBUG;
+    print join(":",map{$_||''}caller) . " - load_tag($offset)\n" if $::DEBUG;
 
     my $storage = $self->_storage;
 
diff --git a/lib/DBM/Deep/Engine2.pm b/lib/DBM/Deep/Engine2.pm
index f88a224..ff43781 100644
--- a/lib/DBM/Deep/Engine2.pm
+++ b/lib/DBM/Deep/Engine2.pm
@@ -150,7 +150,6 @@ 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,
diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index ebd0e84..2edf202 100644
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -146,7 +146,7 @@ sub print_at {
 sub read_at {
     my $self = shift;
     my ($loc, $size) = @_;
-    print join(":",caller) . " - read_at(@{[$loc || 'undef']}, $size)\n" if $::DEBUG;
+    print join(":",map{$_||''}caller) . " - read_at(@{[$loc || 'undef']}, $size)\n" if $::DEBUG;
 
     local ($/,$\);