--- branches/Sack/lib/WebPAC/Input/ISI.pm 2009/09/21 19:36:09 1311 +++ branches/Sack/lib/WebPAC/Input/ISI.pm 2009/09/21 20:05:14 1312 @@ -110,7 +110,7 @@ chomp($line); next unless $line eq 'ER'; push @{ $self->{record_offset} }, tell($fh); - last if $#{ $self->{record_offset} } > $self->{offset} + $self->{limit}; + last if $self->{limit} && $#{ $self->{record_offset} } >= $self->{limit} - 1 + $self->{offset}; } push @{ $self->{record_offset} }, tell($fh); # end of file