--- trunk/Fast.pm	2010/02/04 17:08:03	30
+++ trunk/Fast.pm	2010/02/04 17:13:18	33
@@ -87,7 +87,8 @@
 		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;
 		}