diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-19 01:14:10 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-19 01:14:10 +0000 |
| commit | fc6d62df1761f3ca670b26e64598e15e514f8b5d (patch) | |
| tree | eaf21bdc4ba76997eb2652c6daaa15d1e70c228e | |
| parent | 50963b5726136350e783df92908209d5aeebe3e0 (diff) | |
| download | perl-MDV-Distribconf-fc6d62df1761f3ca670b26e64598e15e514f8b5d.tar perl-MDV-Distribconf-fc6d62df1761f3ca670b26e64598e15e514f8b5d.tar.gz perl-MDV-Distribconf-fc6d62df1761f3ca670b26e64598e15e514f8b5d.tar.bz2 perl-MDV-Distribconf-fc6d62df1761f3ca670b26e64598e15e514f8b5d.tar.xz perl-MDV-Distribconf-fc6d62df1761f3ca670b26e64598e15e514f8b5d.zip | |
- check md5 presence
| -rw-r--r-- | lib/MDV/Distribconf/Checks.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf/Checks.pm b/lib/MDV/Distribconf/Checks.pm index 7866d32..f5c0376 100644 --- a/lib/MDV/Distribconf/Checks.pm +++ b/lib/MDV/Distribconf/Checks.pm @@ -202,7 +202,14 @@ sub check_media_coherency { $distrib->getpath($media, 'path'), $media ); - foreach (qw/hdlist synthesis/) { + foreach (qw/hdlist synthesis MD5SUM/) { + -f $distrib->getfullmediapath($media, $_) or $error += _report_err( + $fhout, + 'MISSING_INDEX', "$_ %s doesn't exist for media `%s'", + $distrib->getmediapath($media, $_), + $media + ); + /^MD5SUM$/ and next; -f $distrib->getfullpath($media, $_) or $error += _report_err( $fhout, 'MISSING_INDEX', "$_ %s doesn't exist for media `%s'", |