I disagree with making ALL of these desc checks only verb > 3. Did you mean to only change the > 45 char desc warning? (due to bracketing, all were lowered to verb 4, which means noone will ever see them.

-Ben


} elsif (Fink::Config::verbosity_level() > 3) {
# Some pedantic checks
if (length($value) > 45) {
print "Warning: Length of package description exceeds 45 characters. ($filename)\n";
$looks_good = 0;
}
if ($value =~ m/^[Aa]n? /) {
print "Warning: Description starts with \"A\" or \"An\". ($filename)\n";
$looks_good = 0;
}
if ($value =~ m/^[a-z]/) {
print "Warning: Description starts with lower case. ($filename)\n";
$looks_good = 0;
}
if ($value =~ /\b\Q$pkgname\E\b/i) {
print "Warning: Description contains package name. ($filename)\n";
$looks_good = 0;
}
if ($value =~ m/\.$/) {
print "Warning: Description ends with \".\". ($filename)\n";
$looks_good = 0;
}




-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Fink-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-devel

Reply via email to