From 1e99ed56b7cefde536997c037fff44be9fd26fab Mon Sep 17 00:00:00 2001
From: Alex Efros <powerman@powerman.name>
Date: Sat, 26 May 2012 23:32:02 +0300
Subject: [PATCH] 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 -
---
 syntax_checkers/efm_perl.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/syntax_checkers/efm_perl.pl b/syntax_checkers/efm_perl.pl
index 570d6e76..b0c2562b 100644
--- a/syntax_checkers/efm_perl.pl
+++ b/syntax_checkers/efm_perl.pl
@@ -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++;