|
@@ -2930,6 +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]/ &&
|
|
!defined $camelcase{$var}) {
|
|
!defined $camelcase{$var}) {
|
|
$camelcase{$var} = 1;
|
|
$camelcase{$var} = 1;
|
|
WARN("CAMELCASE",
|
|
WARN("CAMELCASE",
|