Merge pull request #1262 from powerman/fix-perl-DATA
Perl: fix filename detection.
This commit is contained in:
commit
c74f28ace2
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user