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:
Alex Efros 2012-05-26 23:32:02 +03:00
parent 025fa81d98
commit 1e99ed56b7

View File

@ -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++;