Fix: efm_perl missed some error messages
First example: $ echo -e 'if (0)\nsome();\n}' | perl -c - Semicolon seems to be missing at - line 1. syntax error at - line 2, near ") some" Unmatched right curly bracket at - line 3, at end of line - had compilation errors. $ echo -e 'if (0)\nsome();\n}' | perl syntax_checkers/efm_perl.pl -c - -:1:Semicolon seems to be missing Second example: $ echo -e 'if (0)' | perl -c - syntax error at - line 1, at EOF - had compilation errors. $ echo -e 'if (0)' | perl syntax_checkers/efm_perl.pl -c -
This commit is contained in:
parent
025fa81d98
commit
1e99ed56b7
@ -94,7 +94,7 @@ foreach my $line (@lines) {
|
||||
chomp($line);
|
||||
my ($file, $lineno, $message, $rest);
|
||||
|
||||
if ($line =~ /^(.*)\sat\s(.*)\sline\s(\d+)(\.|,\snear\s\".*\")$/) {
|
||||
if ($line =~ /^(.*)\sat\s(.*)\sline\s(\d+)(.*)$/) {
|
||||
|
||||
($message, $file, $lineno, $rest) = ($1, $2, $3, $4);
|
||||
$errors++;
|
||||
|
Loading…
Reference in New Issue
Block a user