From: rkinyon 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 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.) This is -included within the data_sector_size. +B 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.) 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 );