From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Tue, 30 Jan 2007 04:40:17 +0000 (+0000)
Subject: Minor cleanups
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33002752ef2832da97d42a45cd57c8666fc35909;p=dbsrgits%2FDBM-Deep.git

Minor cleanups
---

diff --git a/lib/DBM/Deep.pod b/lib/DBM/Deep.pod
index 701c70b..1fd95c2 100644
--- a/lib/DBM/Deep.pod
+++ b/lib/DBM/Deep.pod
@@ -227,9 +227,10 @@ space in it.
 The default for this is 64 bytes. The minimum value is 32 and the maximum is
 256 bytes.
 
-B<Note:> There are between 5 and 9 bytes taken up in each data sector for
-bookkeeping. (It's 3 + the number of bytes in your L</pack_size>.) This is
-included within the data_sector_size.
+B<Note:> There are between 6 and 10 bytes taken up in each data sector for
+bookkeeping. (It's 4 + the number of bytes in your L</pack_size>.) This is
+included within the data_sector_size, thus the effective value is 6-10 bytes
+less than what you specified.
 
 =item * pack_size
 
diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 4f4e286..d631851 100644
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -1029,7 +1029,7 @@ sub _init {
     my $engine = $self->engine;
 
     unless ( $self->offset ) {
-        my $data_section = $self->size - $self->base_size - 1 * $engine->byte_size - 1;
+        my $data_section = $self->size - $self->base_size - $engine->byte_size - 1;
 
         $self->{offset} = $engine->_request_data_sector( $self->size );