don't card on junk at end, just warn

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

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