|
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 |
- |
|
|