updated for version 7.2a
diff --git a/runtime/ftplugin/perl.vim b/runtime/ftplugin/perl.vim
index b307800..3f3e570 100644
--- a/runtime/ftplugin/perl.vim
+++ b/runtime/ftplugin/perl.vim
@@ -1,7 +1,7 @@
" Vim filetype plugin file
" Language: Perl
" Maintainer: Dan Sharp <dwsharp at hotmail dot com>
-" Last Change: 2005 Dec 16
+" Last Change: 2007 Nov 30
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif
@@ -42,12 +42,16 @@
" Set this once, globally.
if !exists("perlpath")
if executable("perl")
+ try
if &shellxquote != '"'
let perlpath = system('perl -e "print join(q/,/,@INC)"')
else
let perlpath = system("perl -e 'print join(q/,/,@INC)'")
endif
let perlpath = substitute(perlpath,',.$',',,','')
+ catch /E145:/
+ let perlpath = ".,,"
+ endtry
else
" If we can't call perl to get its path, just default to using the
" current directory and the directory of the current file.