Array tests now pass

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

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index aa1ea32..f75689a 100644 (file)
--- 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};