Are we ready for release?

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

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index 612c6eb..c81b3f5 100644 (file)
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0007);
+our $VERSION = q(1.0008);
 
 use Fcntl qw( :DEFAULT :flock :seek );
 
@@ -110,7 +110,7 @@ sub print_at {
         seek( $fh, $loc + $self->{file_offset}, SEEK_SET );
     }
 
-    print( $fh @_ ) or die "Internal Error (print_at): $!\n";
+    print( $fh @_ ) or die "Internal Error (print_at($loc)): $!\n";
 
     return 1;
 }
@@ -165,9 +165,9 @@ sub lock {
 
     if (!defined($self->{fh})) { return; }
 
-    #XXX This needs to allow for upgrading a shared lock to an
-    # exclusive lock. q.v. the comment in read_value when
-    # autovivifying. -RobK, 2007-11-15
+    #XXX This either needs to allow for upgrading a shared lock to an
+    # exclusive lock or something else with autovivification.
+    # -RobK, 2008-03-09
     if ($self->{locking}) {
         if (!$self->{locked}) {
             flock($self->{fh}, $type);