projects
/
MARC-Fast
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
include_subfields with option -h
[MARC-Fast]
/
Fast.pm
diff --git
a/Fast.pm
b/Fast.pm
index
ace03b3
..
f944654
100644
(file)
--- a/
Fast.pm
+++ b/
Fast.pm
@@
-2,7
+2,7
@@
package MARC::Fast;
use strict;
use Carp;
use strict;
use Carp;
-use Data::Dump
er
;
+use Data::Dump
qw/dump/
;
BEGIN {
use Exporter ();
BEGIN {
use Exporter ();
@@
-124,6
+124,7
@@
sub new {
# skip to next record
my $o = substr($leader,0,5);
# 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 {
if ($o > 24) {
seek($self->{fh},$o-24,1) if ($o);
} else {