projects
/
MARC-Fast
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
64db2e9
)
return correct count for marc files with additional junk bytes at end
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 4 Feb 2010 17:09:49 +0000
(17:09 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 4 Feb 2010 17:09:49 +0000
(17:09 +0000)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@31
49f9634a
-d7ec-0310-8e6b-
ec35c6cc8804
Fast.pm
patch
|
blob
|
history
diff --git
a/Fast.pm
b/Fast.pm
index
1178658
..
dea7a91
100644
(file)
--- a/
Fast.pm
+++ b/
Fast.pm
@@
-88,6
+88,7
@@
sub new {
if ($len < 24) {
carp "short read of leader, aborting\n";
if ($len < 24) {
carp "short read of leader, aborting\n";
+ $self->{count}--;
last;
}
last;
}