From c9df7a8379b2016ab44b0427198a193c4a98cf2e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 4 Feb 2010 17:13:18 +0000
Subject: [PATCH] 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
---
 Fast.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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