Fix #1186 - Use -w by default for Perl, which does not execute code

This commit is contained in:
w0rp
2017-12-02 12:26:30 +00:00
parent 83760a0952
commit f5fc746d00
3 changed files with 45 additions and 7 deletions

View File

@@ -1,18 +1,15 @@
" Author: Vincent Lequertier <https://github.com/SkySymbol>
" Description: This file adds support for checking perl syntax
let g:ale_perl_perl_executable =
\ get(g:, 'ale_perl_perl_executable', 'perl')
let g:ale_perl_perl_options =
\ get(g:, 'ale_perl_perl_options', '-c -Mwarnings -Ilib')
call ale#Set('perl_perl_executable', 'perl')
call ale#Set('perl_perl_options', '-w -Mwarnings -Ilib')
function! ale_linters#perl#perl#GetExecutable(buffer) abort
return ale#Var(a:buffer, 'perl_perl_executable')
endfunction
function! ale_linters#perl#perl#GetCommand(buffer) abort
return ale_linters#perl#perl#GetExecutable(a:buffer)
return ale#Escape(ale_linters#perl#perl#GetExecutable(a:buffer))
\ . ' ' . ale#Var(a:buffer, 'perl_perl_options')
\ . ' %t'
endfunction