|
@@ -2930,7 +2930,7 @@ sub process {
|
|
my $var = $1;
|
|
my $var = $1;
|
|
if ($var !~ /$Constant/ &&
|
|
if ($var !~ /$Constant/ &&
|
|
$var =~ /[A-Z]\w*[a-z]|[a-z]\w*[A-Z]/ &&
|
|
$var =~ /[A-Z]\w*[a-z]|[a-z]\w*[A-Z]/ &&
|
|
- $var !~ /^Page[A-Z]/ &&
|
|
|
|
|
|
+ $var !~ /"^(?:Clear|Set|TestClear|TestSet|)Page[A-Z]/ &&
|
|
!defined $camelcase{$var}) {
|
|
!defined $camelcase{$var}) {
|
|
$camelcase{$var} = 1;
|
|
$camelcase{$var} = 1;
|
|
WARN("CAMELCASE",
|
|
WARN("CAMELCASE",
|