Better support for "strangely" formatted 3 clause UCB licenses

This commit is contained in:
martin 2008-05-22 22:28:08 +00:00
parent 132e9baecf
commit eaf850b754
1 changed files with 9 additions and 0 deletions

View File

@ -73,6 +73,7 @@ $ack_endline=
$known_bad_clause_3_wording=
'usr.bin/lex/.*' # UCB
.'|dist/bind/contrib/nslint-2.1a3/lbl/.*' #
.'|usr.sbin/hilinfo/hilinfo.c' # CSS @ Utah
;
@ -163,6 +164,14 @@ while(<>) {
# post-process
if ($fn =~ m,$known_bad_clause_3_wording,) {
while ($msg !~ /^ .*``.*\n/) {
$msg =~ s/^.*\n//o;
}
$msg =~ s/\n.*``//o;
$msg =~ s/''.*$//o;
}
# *roff
while ($msg =~ /^\.\\"\s*/) {
$msg =~ s/^\.\\"\s*//o;