First pass at cleanup

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / File.pm

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 ($/,$\);