|
@@ -2949,9 +2949,9 @@ sub process {
|
|
}
|
|
}
|
|
|
|
|
|
#CamelCase
|
|
#CamelCase
|
|
- if ($var !~ /$Constant/ &&
|
|
|
|
|
|
+ if ($var !~ /^$Constant$/ &&
|
|
$var =~ /[A-Z][a-z]|[a-z][A-Z]/ &&
|
|
$var =~ /[A-Z][a-z]|[a-z][A-Z]/ &&
|
|
- $var !~ /"^(?:Clear|Set|TestClear|TestSet|)Page[A-Z]/ &&
|
|
|
|
|
|
+ $var !~ /^(?:Clear|Set|TestClear|TestSet|)Page[A-Z]/ &&
|
|
!defined $camelcase{$var}) {
|
|
!defined $camelcase{$var}) {
|
|
$camelcase{$var} = 1;
|
|
$camelcase{$var} = 1;
|
|
CHK("CAMELCASE",
|
|
CHK("CAMELCASE",
|