Mercurial > vim
annotate runtime/ftplugin/perl.vim @ 19691:60b5abfc4897 v8.2.0402
patch 8.2.0402: setting local instead of global flag
Commit: https://github.com/vim/vim/commit/30d53e2c11e670845830bdfc29bf8c1615df61a8
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Mar 18 21:10:44 2020 +0100
patch 8.2.0402: setting local instead of global flag
Problem: Setting local instead of global flag.
Solution: Prepend "g:" to "test_is_flaky".
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 18 Mar 2020 21:15:03 +0100 |
parents | d91cf2e26ef0 |
children | bd021eb62e73 |
rev | line source |
---|---|
7 | 1 " Vim filetype plugin file |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
2 " Language: Perl |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
3 " Maintainer: vim-perl <vim-perl@googlegroups.com> |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
4 " Homepage: http://github.com/vim-perl/vim-perl |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
5 " Bugs/requests: http://github.com/vim-perl/vim-perl/issues |
12499 | 6 " Last Change: 2015-02-09 |
7 | 7 |
8 if exists("b:did_ftplugin") | finish | endif | |
9 let b:did_ftplugin = 1 | |
10 | |
11 " Make sure the continuation lines below do not cause problems in | |
12 " compatibility mode. | |
13 let s:save_cpo = &cpo | |
14 set cpo-=C | |
15 | |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
16 setlocal formatoptions-=t |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
17 setlocal formatoptions+=crqol |
1698 | 18 setlocal keywordprg=perldoc\ -f |
7 | 19 |
20 setlocal comments=:# | |
21 setlocal commentstring=#%s | |
22 | |
23 " Change the browse dialog on Win32 to show mainly Perl-related files | |
24 if has("gui_win32") | |
25 let b:browsefilter = "Perl Source Files (*.pl)\t*.pl\n" . | |
26 \ "Perl Modules (*.pm)\t*.pm\n" . | |
27 \ "Perl Documentation Files (*.pod)\t*.pod\n" . | |
28 \ "All Files (*.*)\t*.*\n" | |
29 endif | |
30 | |
31 " Provided by Ned Konz <ned at bike-nomad dot com> | |
32 "--------------------------------------------- | |
603 | 33 setlocal include=\\<\\(use\\\|require\\)\\> |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
34 setlocal includeexpr=substitute(substitute(substitute(v:fname,'::','/','g'),'->\*','',''),'$','.pm','') |
7 | 35 setlocal define=[^A-Za-z_] |
12499 | 36 setlocal iskeyword+=: |
7 | 37 |
38 " The following line changes a global variable but is necessary to make | |
12499 | 39 " gf and similar commands work. Thanks to Andrew Pimlott for pointing |
40 " out the problem. If this causes a problem for you, add an | |
41 " after/ftplugin/perl.vim file that contains | |
7 | 42 " set isfname-=: |
43 set isfname+=: | |
44 | |
45 " Set this once, globally. | |
46 if !exists("perlpath") | |
47 if executable("perl") | |
1621 | 48 try |
7 | 49 if &shellxquote != '"' |
50 let perlpath = system('perl -e "print join(q/,/,@INC)"') | |
51 else | |
52 let perlpath = system("perl -e 'print join(q/,/,@INC)'") | |
53 endif | |
54 let perlpath = substitute(perlpath,',.$',',,','') | |
1621 | 55 catch /E145:/ |
56 let perlpath = ".,," | |
57 endtry | |
7 | 58 else |
59 " If we can't call perl to get its path, just default to using the | |
60 " current directory and the directory of the current file. | |
61 let perlpath = ".,," | |
62 endif | |
63 endif | |
64 | |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
65 " Append perlpath to the existing path value, if it is set. Since we don't |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
66 " use += to do it because of the commas in perlpath, we have to handle the |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
67 " global / local settings, too. |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
68 if &l:path == "" |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
69 if &g:path == "" |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
70 let &l:path=perlpath |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
71 else |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
72 let &l:path=&g:path.",".perlpath |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
73 endif |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
74 else |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
75 let &l:path=&l:path.",".perlpath |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
76 endif |
7 | 77 "--------------------------------------------- |
78 | |
79 " Undo the stuff we changed. | |
12499 | 80 let b:undo_ftplugin = "setlocal fo< com< cms< inc< inex< def< isk< isf< kp< path<" . |
7 | 81 \ " | unlet! b:browsefilter" |
82 | |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
83 " proper matching for matchit plugin |
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
84 let b:match_skip = 's:comment\|string\|perlQQ\|perlShellCommand\|perlHereDoc\|perlSubstitution\|perlTranslation\|perlMatch\|perlFormatField' |
12499 | 85 let b:match_words = '\<if\>:\<elsif\>:\<else\>' |
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3410
diff
changeset
|
86 |
7 | 87 " Restore the saved compatibility options. |
88 let &cpo = s:save_cpo | |
3410
94601b379f38
Updated runtime files. Add Dutch translations.
Bram Moolenaar <bram@vim.org>
parents:
2531
diff
changeset
|
89 unlet s:save_cpo |