diff options
Diffstat (limited to 'ale_linters/perl')
| -rw-r--r-- | ale_linters/perl/perl.vim | 9 | ||||
| -rw-r--r-- | ale_linters/perl/perlcritic.vim | 18 |
2 files changed, 4 insertions, 23 deletions
diff --git a/ale_linters/perl/perl.vim b/ale_linters/perl/perl.vim index 7e48efc3..8720213b 100644 --- a/ale_linters/perl/perl.vim +++ b/ale_linters/perl/perl.vim @@ -21,19 +21,12 @@ function! ale_linters#perl#perl#Handle(buffer, lines) abort let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' let l:output = [] - for l:line in a:lines - let l:match = matchlist(l:line, l:pattern) - - if len(l:match) == 0 - continue - endif - + for l:match in ale#util#GetMatches(a:lines, l:pattern) let l:line = l:match[3] let l:text = l:match[1] let l:type = 'E' call add(l:output, { - \ 'bufnr': a:buffer, \ 'lnum': l:line, \ 'text': l:text, \ 'type': l:type, diff --git a/ale_linters/perl/perlcritic.vim b/ale_linters/perl/perlcritic.vim index 8f31e513..f0e85030 100644 --- a/ale_linters/perl/perlcritic.vim +++ b/ale_linters/perl/perlcritic.vim @@ -5,22 +5,10 @@ function! ale_linters#perl#perlcritic#Handle(buffer, lines) abort let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' let l:output = [] - for l:line in a:lines - let l:match = matchlist(l:line, l:pattern) - - if len(l:match) == 0 - continue - endif - - let l:line = l:match[3] - let l:text = l:match[1] - let l:type = 'E' - + for l:match in ale#util#GetMatches(a:lines, l:pattern) call add(l:output, { - \ 'bufnr': a:buffer, - \ 'lnum': l:line, - \ 'text': l:text, - \ 'type': l:type, + \ 'text': l:match[1], + \ 'lnum': l:match[3], \}) endfor |