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