healtcheck: use g:perl_host_prog if its set instead

using just 'perl' isn't correct as it may not be the version requested.
ditto for 'cpanm', rather go through 'App::cpanminus' to find the latest
perl version

1 files changed, 9 insertions, 6 deletions

diff --git a/runtime/autoload/provider/perl.vim b/runtime/autoload/provider/perl.vim
index 793bceb72d..24f2b018bb 100644
--- a/runtime/autoload/provider/perl.vim
+++ b/runtime/autoload/provider/perl.vim
@@ -5,21 +5,25 @@ endif
 let s:loaded_perl_provider = 1
 
 function! provider#perl#Detect() abort
-  " use g:perl_host_prof if set or check if perl is on the path
+  " use g:perl_host_prog if set or check if perl is on the path
   let prog = exepath(get(g:, 'perl_host_prog', 'perl'))
   if empty(prog)
-    return ''
+    return ['', '']
   endif
 
   " if perl is available, make sure we have 5.22+
   call system([prog, '-e', 'use v5.22'])
   if v:shell_error
-    return ''
+    return ['', 'Perl version is too old, 5.22+ required']
   endif
 
   " if perl is available, make sure the required module is available
   call system([prog, '-W', '-MNeovim::Ext', '-e', ''])
-  return v:shell_error ? '' : prog
+  if v:shell_error
+    return ['', '"Neovim::Ext" cpan module is not installed']
+  endif
+
+  return [prog, '']
 endfunction
 
 function! provider#perl#Prog() abort
@@ -64,8 +68,7 @@ function! provider#perl#Call(method, args) abort
   return call('rpcrequest', insert(insert(a:args, 'perl_'.a:method), s:host))
 endfunction
 
-let s:err = ''
-let s:prog = provider#perl#Detect()
+let [s:prog, s:err] = provider#perl#Detect()
 let g:loaded_perl_provider = empty(s:prog) ? 1 : 2
 
 if g:loaded_perl_provider != 2