" Only do this when not done yet for this buffer " Also do nothing if 'compatible' enabled if exists('b:did_ftplugin_perl_check') || &compatible 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' 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 \ PerlCheck \ :write !perl -c if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap PerlCheck' endif " If there isn't a key mapping already, use a default one if !hasmapto('PerlCheck') nmap \ c \ PerlCheck if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap c' endif endif endif