Fixed storage->size to only return what the size of the DB is, not the file as a...

git-svn-id: http://svn.ali.as/cpan/trunk/DBM-Deep@3645 88f4d9cd-8a04-0410-9d60-8f63309c3137

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index aa1ea32..7a89e11 100644 (file)
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -91,7 +91,7 @@ sub size {
     my $self = shift;
 
     return 0 unless $self->{fh};
-    return -s $self->{fh};
+    return( (-s $self->{fh}) - $self->{file_offset} );
 }
 
 sub set_inode {

diff --git a/t/27_filehandle.t b/t/27_filehandle.t
index aff3007..006f26a 100644 (file)
--- a/t/27_filehandle.t
+++ b/t/27_filehandle.t
@@ -98,7 +98,7 @@ locking => 0,
         } qr/Cannot write to a readonly filehandle/, "Can't write to a read-only filehandle";
         ok( !$db->exists( 'foo' ), "foo still doesn't exist" );
 
-        is( $db->{x}, 'b' );
+        is( $db->{x}, 'b', "x is still 'b'" );
     }
 
     exec( "$^X -Iblib/lib $filename" );