make sure that no files are accidently skipped, and emit comments via diag, not warn

This commit is contained in:
Colin Kuskie 2007-10-24 22:34:49 +00:00
parent ff27c6ed80
commit 3955b11149

View file

@ -114,8 +114,8 @@ sub label_finder_pm {
sub obj_finder_pm {
return unless /\.pm$/;
if ($File::Find::name =~ m#(?:Help|i18n)/?$#) {
warn "Pruned $File::Find::name\n";
if ($File::Find::name =~ m#/(?:Help|i18n)/?$#) {
diag "Pruned $File::Find::name\n";
$File::Find::prune=1;
return;
}