First pass at cleanup

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index bfbd594..53c5d50 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 ($/,$\);