|
|
@@ -1916,7 +1916,7 @@ sub checkmakefile {
|
|
|
# whole file: BROKEN et al.
|
|
|
#
|
|
|
my ($var);
|
|
|
- foreach $var (qw(IGNORE BROKEN COMMENT FORBIDDEN MANUAL_PACKAGE_BUILD NO_CDROM NO_PACKAGE RESTRICTED)) {
|
|
|
+ foreach $var (qw(IGNORE BROKEN(_[\w\d]+)? COMMENT FORBIDDEN MANUAL_PACKAGE_BUILD NO_CDROM NO_PACKAGE RESTRICTED)) {
|
|
|
print "OK: checking ${var}.\n" if ($verbose);
|
|
|
if ($whole =~ /\n${var}[+?]?=[ \t]+"/) {
|
|
|
my $lineno = &linenumber($`);
|
|
|
@@ -1937,8 +1937,8 @@ sub checkmakefile {
|
|
|
"with a lowercase letter and end without a period.");
|
|
|
}
|
|
|
|
|
|
- if ($whole =~ /\nBROKEN[+?]=[ \t]+[^a-z \t]/ ||
|
|
|
- $whole =~ /^BROKEN[+?]?=[ \t]+.*\.$/m) {
|
|
|
+ if ($whole =~ /\nBROKEN(_[\w\d]+)?[+?]?=[ \t]+[^a-z \t]/ ||
|
|
|
+ $whole =~ /^BROKEN(_[\w\d]+)?[+?]?=[ \t]+.*\.$/m) {
|
|
|
my $lineno = &linenumber($`);
|
|
|
&perror("WARN", $file, $lineno, "BROKEN messages should begin ".
|
|
|
"with a lowercase letter and end without a period.");
|
