X-Git-Url: http://git.rot13.org/?p=MARC-Fast;a=blobdiff_plain;f=Fast.pm;h=f944654aa902d6e30a897618a30238f334ecb4cd;hp=ace03b3a6db9904baba5c7882ffeb5c40abe4d01;hb=8bc90e39e0a8a20521a51e0e70aa6941499bde8a;hpb=8ddb954243aacc37ee72801b9f1d969d893a5f85

diff --git a/Fast.pm b/Fast.pm
index ace03b3..f944654 100644
--- a/Fast.pm
+++ b/Fast.pm
@@ -2,7 +2,7 @@ package MARC::Fast;
 
 use strict;
 use Carp;
-use Data::Dumper;
+use Data::Dump qw/dump/;
 
 BEGIN {
 	use Exporter ();
@@ -124,6 +124,7 @@ sub new {
 
 		# skip to next record
 		my $o = substr($leader,0,5);
+		warn "# in record ", $self->{count}," record length isn't number but: ",dump($o),"\n" unless $o =~ m/^\d+$/;
 		if ($o > 24) {
 			seek($self->{fh},$o-24,1) if ($o);
 		} else {