|
|
@@ -3076,15 +3076,22 @@ sub process {
|
|
|
|
|
|
substr($s, 0, length($c), '');
|
|
|
|
|
|
- # Make sure we remove the line prefixes as we have
|
|
|
- # none on the first line, and are going to readd them
|
|
|
- # where necessary.
|
|
|
- $s =~ s/\n./\n/gs;
|
|
|
+ # remove inline comments
|
|
|
+ $s =~ s/$;/ /g;
|
|
|
+ $c =~ s/$;/ /g;
|
|
|
|
|
|
# Find out how long the conditional actually is.
|
|
|
my @newlines = ($c =~ /\n/gs);
|
|
|
my $cond_lines = 1 + $#newlines;
|
|
|
|
|
|
+ # Make sure we remove the line prefixes as we have
|
|
|
+ # none on the first line, and are going to readd them
|
|
|
+ # where necessary.
|
|
|
+ $s =~ s/\n./\n/gs;
|
|
|
+ while ($s =~ /\n\s+\\\n/) {
|
|
|
+ $cond_lines += $s =~ s/\n\s+\\\n/\n/g;
|
|
|
+ }
|
|
|
+
|
|
|
# We want to check the first line inside the block
|
|
|
# starting at the end of the conditional, so remove:
|
|
|
# 1) any blank line termination
|
|
|
@@ -3150,8 +3157,10 @@ sub process {
|
|
|
|
|
|
#print "line<$line> prevline<$prevline> indent<$indent> sindent<$sindent> check<$check> continuation<$continuation> s<$s> cond_lines<$cond_lines> stat_real<$stat_real> stat<$stat>\n";
|
|
|
|
|
|
- if ($check && (($sindent % 8) != 0 ||
|
|
|
- ($sindent <= $indent && $s ne ''))) {
|
|
|
+ if ($check && $s ne '' &&
|
|
|
+ (($sindent % 8) != 0 ||
|
|
|
+ ($sindent < $indent) ||
|
|
|
+ ($sindent > $indent + 8))) {
|
|
|
WARN("SUSPECT_CODE_INDENT",
|
|
|
"suspect code indent for conditional statements ($indent, $sindent)\n" . $herecurr . "$stat_real\n");
|
|
|
}
|