|
@@ -4291,7 +4291,7 @@ sub process {
|
|
my $comp = $3;
|
|
my $comp = $3;
|
|
my $to = $4;
|
|
my $to = $4;
|
|
my $newcomp = $comp;
|
|
my $newcomp = $comp;
|
|
- if ($lead !~ /$Operators\s*$/ &&
|
|
|
|
|
|
+ if ($lead !~ /(?:$Operators|\.)\s*$/ &&
|
|
$to !~ /^(?:Constant|[A-Z_][A-Z0-9_]*)$/ &&
|
|
$to !~ /^(?:Constant|[A-Z_][A-Z0-9_]*)$/ &&
|
|
WARN("CONSTANT_COMPARISON",
|
|
WARN("CONSTANT_COMPARISON",
|
|
"Comparisons should place the constant on the right side of the test\n" . $herecurr) &&
|
|
"Comparisons should place the constant on the right side of the test\n" . $herecurr) &&
|