aboutsummaryrefslogtreecommitdiff
path: root/vim/after/ftplugin/perl/check.vim
diff options
context:
space:
mode:
Diffstat (limited to 'vim/after/ftplugin/perl/check.vim')
-rw-r--r--vim/after/ftplugin/perl/check.vim47
1 files changed, 25 insertions, 22 deletions
diff --git a/vim/after/ftplugin/perl/check.vim b/vim/after/ftplugin/perl/check.vim
index e5eaf44a..e115b37f 100644
--- a/vim/after/ftplugin/perl/check.vim
+++ b/vim/after/ftplugin/perl/check.vim
@@ -1,24 +1,31 @@
-" Only do this when not done yet for this buffer
-" Also do nothing if 'compatible' enabled
-if exists('b:did_ftplugin_perl_check') || &compatible
+" perl/check.vim: Use Perl binary to check for errors
+
+" Don't load if running compatible or too old
+if &compatible || v:version < 700
finish
endif
-let b:did_ftplugin_perl_check = 1
-if exists('b:undo_ftplugin')
- let b:undo_ftplugin = b:undo_ftplugin
- \ . '|unlet b:did_ftplugin_perl_check'
+
+" Don't load if already loaded
+if exists('b:did_ftplugin_perl_check')
+ finish
endif
+" Flag as loaded
+let b:did_ftplugin_perl_check = 1
+let b:undo_ftplugin = b:undo_ftplugin
+ \ . '|unlet b:did_ftplugin_perl_check'
+
" Build function for checker
function! s:PerlCheck()
- let l:save_makeprg = &l:makeprg
- let l:save_errorformat = &l:errorformat
- unlet! g:current_compiler
+ if exists('b:current_compiler')
+ let l:save_compiler = b:current_compiler
+ endif
compiler perl
- make!
- let &l:makeprg = l:save_makeprg
- let &l:errorformat = l:save_errorformat
- cwindow
+ lmake!
+ lwindow
+ if exists('l:save_compiler')
+ execute 'compiler ' . l:save_compiler
+ endif
endfunction
" Stop here if the user doesn't want ftplugin mappings
@@ -30,18 +37,14 @@ endif
nnoremap <buffer> <silent> <unique>
\ <Plug>PerlCheck
\ :<C-U>call <SID>PerlCheck()<CR>
-if exists('b:undo_ftplugin')
- let b:undo_ftplugin = b:undo_ftplugin
- \ . '|nunmap <buffer> <Plug>PerlCheck'
-endif
+let b:undo_ftplugin = b:undo_ftplugin
+ \ . '|nunmap <buffer> <Plug>PerlCheck'
" If there isn't a key mapping already, use a default one
if !hasmapto('<Plug>PerlCheck')
nmap <buffer> <unique>
\ <LocalLeader>c
\ <Plug>PerlCheck
- if exists('b:undo_ftplugin')
- let b:undo_ftplugin = b:undo_ftplugin
- \ . '|nunmap <buffer> <LocalLeader>c'
- endif
+ let b:undo_ftplugin = b:undo_ftplugin
+ \ . '|nunmap <buffer> <LocalLeader>c'
endif