Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Thu Feb 4 17:09:49 2010 UTC | revision 33 by dpavlin, Thu Feb 4 17:13:18 2010 UTC | |
---|---|---|
# | Line 87 sub new { | Line 87 sub new { |
87 | my $len = read($self->{fh}, $leader, 24); | my $len = read($self->{fh}, $leader, 24); |
88 | ||
89 | if ($len < 24) { | if ($len < 24) { |
90 | carp "short read of leader, aborting\n"; | warn "short read of leader, aborting\n"; |
91 | $self->{count}--; | $self->{count}--; |
92 | last; | last; |
93 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |