projects
/
MARC-Fast
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3155b9d
)
don't card on junk at end, just warn
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 4 Feb 2010 17:13:18 +0000
(17:13 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 4 Feb 2010 17:13:18 +0000
(17:13 +0000)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@33
49f9634a
-d7ec-0310-8e6b-
ec35c6cc8804
Fast.pm
patch
|
blob
|
history
diff --git
a/Fast.pm
b/Fast.pm
index
dea7a91
..
6485b55
100644
(file)
--- a/
Fast.pm
+++ b/
Fast.pm
@@
-87,7
+87,7
@@
sub new {
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;
}