Fix #676 - Fix handling of Perl errors

This commit is contained in:
w0rp 2017-06-22 12:37:08 +01:00
parent 40f6ee4c39
commit ce2bfa88eb
4 changed files with 28 additions and 1 deletions

View file

@ -27,7 +27,7 @@ function! ale_linters#perl#perl#Handle(buffer, lines) abort
let l:text = l:match[1]
let l:type = 'E'
if l:match[2][-len(l:basename):] ==# l:basename
if ale#path#IsBufferPath(a:buffer, l:match[2])
\&& l:text !=# 'BEGIN failed--compilation aborted'
call add(l:output, {
\ 'lnum': l:line,