Merge pull request #1262 from powerman/fix-perl-DATA

Perl: fix filename detection.
This commit is contained in:
LCD 047 2014-12-07 22:34:58 +02:00
commit c74f28ace2

View File

@ -131,7 +131,7 @@ function! syntastic#preprocess#perl(errors) " {{{2
let out = [] let out = []
for e in a:errors for e in a:errors
let parts = matchlist(e, '\v^(.*)\sat\s(.*)\sline\s(\d+)(.*)$') let parts = matchlist(e, '\v^(.*)\sat\s(.{-})\sline\s(\d+)(.*)$')
if !empty(parts) if !empty(parts)
call add(out, parts[2] . ':' . parts[3] . ':' . parts[1] . parts[4]) call add(out, parts[2] . ':' . parts[3] . ':' . parts[1] . parts[4])
endif endif