X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep%2FFile.pm;h=f75689aa090973cc5261303619ecdb2e4dfae4dc;hb=68e37b5129df9be33e24ceda16d7ca6cdd52256c;hp=aa1ea32a41c800960cf1554367531cd75a986a71;hpb=badf847ca0fd2a37bf21caf92454a92d568e3ccf;p=dbsrgits%2FDBM-Deep.git

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index aa1ea32..f75689a 100644
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -7,7 +7,7 @@ use warnings FATAL => 'all';
 
 use Fcntl qw( :DEFAULT :flock :seek );
 
-use constant DEBUG => 0;
+use constant DEBUG => 1;
 
 sub new {
     my $class = shift;
@@ -110,6 +110,7 @@ sub print_at {
     my $self = shift;
     my $loc  = shift;
 
+    warn "print_at called\n";
     local ($/,$\);
 
     my $fh = $self->{fh};