" Only do this when not done yet for this buffer " Also do nothing if 'compatible' enabled if exists('b:did_ftplugin_perl_lint') || &compatible finish endif let b:did_ftplugin_perl_lint = 1 if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|unlet b:did_ftplugin_perl_lint' endif " Set up a mapping for the linter, if we're allowed if !exists('g:no_plugin_maps') && !exists('g:no_perl_maps') " Define a mapping target nnoremap \ PerlLint \ :write !perlcritic if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap PerlLint' endif " If there isn't a key mapping already, use a default one if !hasmapto('PerlLint') nmap \ l \ PerlLint if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap l' endif endif endif