181 |
$log->logdie("hum? implementation missing?"); |
$log->logdie("hum? implementation missing?"); |
182 |
} |
} |
183 |
|
|
184 |
$log->confess("record $mfn empty?") unless ($rec); |
if (! $rec) { |
185 |
|
$log->warn("record $mfn empty? skipping..."); |
186 |
|
next; |
187 |
|
} |
188 |
|
|
189 |
# store |
# store |
190 |
if ($self->{'low_mem'}) { |
if ($self->{'low_mem'}) { |
245 |
|
|
246 |
$self->progress_bar($mfn,$self->{'max_mfn'}); |
$self->progress_bar($mfn,$self->{'max_mfn'}); |
247 |
|
|
248 |
|
my $rec; |
249 |
|
|
250 |
if ($self->{'low_mem'}) { |
if ($self->{'low_mem'}) { |
251 |
return $self->{'db'}->get($mfn); |
$rec = $self->{'db'}->get($mfn); |
252 |
} else { |
} else { |
253 |
return $self->{'data'}->{$mfn}; |
$rec = $self->{'data'}->{$mfn}; |
254 |
} |
} |
255 |
|
|
256 |
|
$rec ||= 0E0; |
257 |
} |
} |
258 |
|
|
259 |
=head2 pos |
=head2 pos |