mirror of
https://github.com/neovim/neovim.git
synced 2025-02-25 18:55:25 -06:00
provider/perl: simplify detection
This commit is contained in:
parent
3420bd21e1
commit
ef3e610138
@ -6,18 +6,14 @@ let s:loaded_perl_provider = 1
|
|||||||
|
|
||||||
function! provider#perl#Detect() abort
|
function! provider#perl#Detect() abort
|
||||||
" use g:perl_host_prof if set or check if perl is on the path
|
" use g:perl_host_prof if set or check if perl is on the path
|
||||||
let prog = get(g:, 'perl_host_prog', executable('perl') ? 'perl' : '')
|
let prog = exepath(get(g:, 'perl_host_prog', 'perl'))
|
||||||
|
if empty(prog)
|
||||||
" if perl is available, make sure the required module is available
|
return ''
|
||||||
if prog != ''
|
|
||||||
let job_id = jobstart(prog.' -MNeovim::Ext -e "exit 0"', {'stdout_buffered': v:true})
|
|
||||||
let result = jobwait([job_id])
|
|
||||||
if result[0] != 0
|
|
||||||
let prog = ''
|
|
||||||
endif
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
return prog
|
" if perl is available, make sure the required module is available
|
||||||
|
call system([prog, '-W', '-MNeovim::Ext', '-e', ''])
|
||||||
|
return v:shell_error ? '' : prog
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
function! provider#perl#Prog() abort
|
function! provider#perl#Prog() abort
|
||||||
|
Loading…
Reference in New Issue
Block a user