return correct count for marc files with additional junk bytes at end

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@31 49f9634a-d7ec-0310-8e6b-ec35c6cc8804

diff --git a/Fast.pm b/Fast.pm
index 1178658..dea7a91 100644 (file)
--- a/Fast.pm
+++ b/Fast.pm
@@ -88,6 +88,7 @@ sub new {
 
                if ($len < 24) {
                        carp "short read of leader, aborting\n";
+                       $self->{count}--;
                        last;
                }