Lines 349-355
sub handle_file {
Link Here
|
349 |
} |
349 |
} |
350 |
else { |
350 |
else { |
351 |
warn "Contents of $filename corrupted!"; |
351 |
warn "Contents of $filename corrupted!"; |
352 |
# $count{count}--; |
352 |
#$count{count}--; |
353 |
$filerrors{'CORERR'} = 1; |
353 |
$filerrors{'CORERR'} = 1; |
354 |
push my @filerrors, \%filerrors; |
354 |
push my @filerrors, \%filerrors; |
355 |
push @{ $count{filenames} }, |
355 |
push @{ $count{filenames} }, |
356 |
- |
|
|