Commit 8ef9c902 authored by Morten Welinder's avatar Morten Welinder

Cleanup.

parent 8fe79a2f
......@@ -52,20 +52,20 @@ my %exceptions =
local (*FIL);
if (open (*FIL, "< $filename")) {
my $guard = undef;
my $lineno = 0;
my $state = 0;
LINE:
while (<FIL>) {
$lineno++;
if ($state == 1 && /^\s*\}/) {
my $linenom1 = $lineno - 1;
print STDERR "$filename:$linenom1: Suspicious comma.\n";
}
if (/,\s*\}/) {
print STDERR "$filename:$lineno: Suspicious comma.\n";
$exitcode = 1;
next LINE;
} elsif ($state == 1 && /^\s*\}/) {
my $linenom1 = $lineno - 1;
print STDERR "$filename:$linenom1: Suspicious comma.\n";
}
if (/,\s*$/) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment