don't card on junk at end, just warn

[MARC-Fast] / Fast.pm

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