From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 4 Feb 2010 17:13:18 +0000 (+0000)
Subject: don't card on junk at end, just warn
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;ds=sidebyside;h=c9df7a8379b2016ab44b0427198a193c4a98cf2e;p=MARC-Fast

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