|
@@ -1970,14 +1970,12 @@ sub process {
|
|
}
|
|
}
|
|
|
|
|
|
# Check for FSF mailing addresses.
|
|
# Check for FSF mailing addresses.
|
|
- if ($rawline =~ /\bYou should have received a copy/i ||
|
|
|
|
- $rawline =~ /\bwrite to the Free/i ||
|
|
|
|
|
|
+ if ($rawline =~ /\bwrite to the Free/i ||
|
|
$rawline =~ /\b59\s+Temple\s+Pl/i ||
|
|
$rawline =~ /\b59\s+Temple\s+Pl/i ||
|
|
$rawline =~ /\b51\s+Franklin\s+St/i) {
|
|
$rawline =~ /\b51\s+Franklin\s+St/i) {
|
|
my $herevet = "$here\n" . cat_vet($rawline) . "\n";
|
|
my $herevet = "$here\n" . cat_vet($rawline) . "\n";
|
|
my $msg_type = \&ERROR;
|
|
my $msg_type = \&ERROR;
|
|
$msg_type = \&CHK if ($file);
|
|
$msg_type = \&CHK if ($file);
|
|
- $msg_type = \&CHK if ($rawline =~ /\bYou should have received a copy/i);
|
|
|
|
&{$msg_type}("FSF_MAILING_ADDRESS",
|
|
&{$msg_type}("FSF_MAILING_ADDRESS",
|
|
"Do not include the paragraph about writing to the Free Software Foundation's mailing address from the sample GPL notice. The FSF has changed addresses in the past, and may do so again. Linux already includes a copy of the GPL.\n" . $herevet)
|
|
"Do not include the paragraph about writing to the Free Software Foundation's mailing address from the sample GPL notice. The FSF has changed addresses in the past, and may do so again. Linux already includes a copy of the GPL.\n" . $herevet)
|
|
}
|
|
}
|