|
@@ -2938,12 +2938,12 @@ sub process {
|
|
|
while ($line =~ m{($Constant|$Lval)}g) {
|
|
|
my $var = $1;
|
|
|
if ($var !~ /$Constant/ &&
|
|
|
- $var =~ /[A-Z]\w*[a-z]|[a-z]\w*[A-Z]/ &&
|
|
|
+ $var =~ /[A-Z][a-z]|[a-z][A-Z]/ &&
|
|
|
$var !~ /"^(?:Clear|Set|TestClear|TestSet|)Page[A-Z]/ &&
|
|
|
!defined $camelcase{$var}) {
|
|
|
$camelcase{$var} = 1;
|
|
|
- WARN("CAMELCASE",
|
|
|
- "Avoid CamelCase: <$var>\n" . $herecurr);
|
|
|
+ CHK("CAMELCASE",
|
|
|
+ "Avoid CamelCase: <$var>\n" . $herecurr);
|
|
|
}
|
|
|
}
|
|
|
|