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

[MARC-Fast] / Fast.pm

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;
                }