Better support for "strangely" formatted 3 clause UCB licenses
This commit is contained in:
parent
132e9baecf
commit
eaf850b754
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user