# whole file: BROKEN

	# whole file: BROKEN et al.

	print "OK: checking BROKEN.\n" if ($verbose);

	my($var);

	if ($whole =~ /\nBROKEN[+?]?=[ \t][^"]+\w+/) {

	foreach $var qw(BROKEN FORBIDDEN MANUAL_PACKAGE_BUILD NO_CDROM NO_PACKAGE RESTRICTED) {

		print "OK: checking ${var}.\n" if ($verbose);

		if ($whole =~ /\n${var}[+?]?=[ \t]?[^"]+\w+/) {

			my $lineno = &linenumber($`);

			&perror("WARN: $file [$lineno]: ${var} messages should be ".

				"quoted.");

		}

	}

	#

	# whole file: DEPRECATED

	#

	print "OK: checking DEPRECATED.\n" if ($verbose);

	if ($whole =~ /\nDEPRECATED[+?]?=[ \t]*"/ &&

	    $whole !~ /\nDEPRECATED[+?]?=[ \t]*"\$\{BROKEN\}"/) {

		my $lineno = &linenumber($`);

		&perror("WARN: $file [$lineno]: DEPRECATED messages should not ".

			"be quoted unless they are exactly \"\${BROKEN}\".");

	}

	if ($whole =~ /\nDEPRECATED[+?]?=[^"]*\$\{BROKEN\}/) {

		&perror("WARN: $file [$lineno]: BROKEN messages should be ".

		&perror("WARN: $file [$lineno]: \"\${BROKEN}\" must be quoted ".

			"quoted.");

			"when it is the source of DEPRECATED.");