perl: refactor the new syntastic_perl_efm_program option
* move the doc for it to the top of the script to be consistent with other syntax checkers * dont define a s:checker var - just use the g:syntastic_perl_efm_program variable. This simplifies things slightly
This commit is contained in:
parent
7154419ffb
commit
f99073e20d
@ -17,6 +17,13 @@
|
|||||||
"
|
"
|
||||||
" let g:perl_lib_path = './lib'
|
" let g:perl_lib_path = './lib'
|
||||||
"
|
"
|
||||||
|
" To use your own perl error output munger script, use the
|
||||||
|
" g:syntastic_perl_efm_program option. Any command line parameters should be
|
||||||
|
" included in the variable declaration. The program should expect a single
|
||||||
|
" parameter; the fully qualified filename of the file to be checked.
|
||||||
|
"
|
||||||
|
" let g:syntastic_perl_efm_program = "foo.pl -o -m -g"
|
||||||
|
"
|
||||||
if exists("loaded_perl_syntax_checker")
|
if exists("loaded_perl_syntax_checker")
|
||||||
finish
|
finish
|
||||||
endif
|
endif
|
||||||
@ -27,21 +34,15 @@ if !executable("perl")
|
|||||||
finish
|
finish
|
||||||
endif
|
endif
|
||||||
|
|
||||||
" Any command line parameters needed for this program should be included in
|
if !exists("g:syntastic_perl_efm_program")
|
||||||
" the variable declaration. This program should expect a single parameter;
|
let g:syntastic_perl_efm_program = 'perl ' . shellescape(expand('<sfile>:p:h') . '/efm_perl.pl') . ' -c -w'
|
||||||
" the fully qualified filename of the file to be checked.
|
|
||||||
|
|
||||||
if exists("g:syntastic_perl_efm_program")
|
|
||||||
let s:checker = g:syntastic_perl_efm_program
|
|
||||||
else
|
|
||||||
let s:checker = 'perl ' . shellescape(expand('<sfile>:p:h') . '/efm_perl.pl') . ' -c -w'
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
function! SyntaxCheckers_perl_GetLocList()
|
function! SyntaxCheckers_perl_GetLocList()
|
||||||
if exists("g:perl_lib_path")
|
if exists("g:perl_lib_path")
|
||||||
let makeprg = s:checker . ' -I' . g:perl_lib_path . ' ' . shellescape(expand('%'))
|
let makeprg = g:syntastic_perl_efm_program . ' -I' . g:perl_lib_path . ' ' . shellescape(expand('%'))
|
||||||
else
|
else
|
||||||
let makeprg = s:checker . ' ' . shellescape(expand('%'))
|
let makeprg = g:syntastic_perl_efm_program . ' ' . shellescape(expand('%'))
|
||||||
endif
|
endif
|
||||||
let errorformat = '%t:%f:%l:%m'
|
let errorformat = '%t:%f:%l:%m'
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user