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