--- trunk/Fast.pm	2010/02/04 17:09:49	31
+++ trunk/Fast.pm	2010/02/04 17:13:18	33
@@ -87,7 +87,7 @@
 		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;
 		}