From 2c7c641b3255c0b384f6bd89dded1d7054a9345f Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 19 Nov 2017 18:00:02 +1300
Subject: Add :lwindow support to Perl check/lint

The checker is a bit dicey; I hope that format is reliable. It may turn
out to be better to depend on Vi::QuickFix or a similar module. We'll
see.
---
 vim/after/ftplugin/perl/check.vim | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'vim/after/ftplugin/perl/check.vim')

diff --git a/vim/after/ftplugin/perl/check.vim b/vim/after/ftplugin/perl/check.vim
index 6b057c82..ebfbcea6 100644
--- a/vim/after/ftplugin/perl/check.vim
+++ b/vim/after/ftplugin/perl/check.vim
@@ -9,13 +9,27 @@ if exists('b:undo_ftplugin')
         \ . '|unlet b:did_ftplugin_perl_check'
 endif
 
+" Build function for checker
+if !exists('*s:PerlCheck')
+  function s:PerlCheck()
+    let l:save_makeprg = &l:makeprg
+    let l:save_errorformat = &l:errorformat
+    let &l:makeprg = 'perl -c %:S'
+    let &l:errorformat = '%m at %f line %l.'
+    lmake!
+    let &l:makeprg = l:save_makeprg
+    let &l:errorformat = l:save_errorformat
+    lwindow
+  endfunction
+endif
+
 " Set up a mapping for the checker, if we're allowed
 if !exists('g:no_plugin_maps') && !exists('g:no_perl_maps')
 
   " Define a mapping target
   nnoremap <buffer> <silent> <unique>
         \ <Plug>PerlCheck
-        \ :<C-U>write !perl -c<CR>
+        \ :<C-U>call <SID>PerlCheck()<CR>
   if exists('b:undo_ftplugin')
     let b:undo_ftplugin = b:undo_ftplugin
           \ . '|nunmap <buffer> <Plug>PerlCheck'
-- 
cgit v1.2.3