my $md5 = $data->{md5} || die "no md5 in ",dump $data;
my $path = $self->blob_path($data);
- if ( ! -e $path ) {
- warn "ERROR missing path $path";
+ if ( ! -f $path ) {
+ warn "ERROR missing path $path: $!";
return;
}
while(<$md5sum>) {
chomp;
my ( $md5, $file ) = split(/\s+/,$_,2);
- if ( ! $file ) {
- warn "IGNORE $md5 without file\n";
+ if ( $md5 !~ /^[0-9a-f]{32}$/i || ! $file ) {
+ warn "ERROR corrupt md5sum line ",dump($_);
next;
}
if ( ! -e "$self->{md5pool}/$md5" ) {