|
@@ -55,6 +55,7 @@ my $spelling_file = "$D/spelling.txt";
|
|
|
my $codespell = 0;
|
|
|
my $codespellfile = "/usr/share/codespell/dictionary.txt";
|
|
|
my $color = 1;
|
|
|
+my $allow_c99_comments = 1;
|
|
|
|
|
|
sub help {
|
|
|
my ($exitcode) = @_;
|
|
@@ -1144,6 +1145,11 @@ sub sanitise_line {
|
|
|
$res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
|
|
|
}
|
|
|
|
|
|
+ if ($allow_c99_comments && $res =~ m@(//.*$)@) {
|
|
|
+ my $match = $1;
|
|
|
+ $res =~ s/\Q$match\E/"$;" x length($match)/e;
|
|
|
+ }
|
|
|
+
|
|
|
return $res;
|
|
|
}
|
|
|
|