From eeea72e16740bb1dfa5bd554a927e6bbee76a9b5 Mon Sep 17 00:00:00 2001
From: w0rp <devw0rp@gmail.com>
Date: Tue, 6 Jun 2017 20:37:04 +0100
Subject: Fix #625 Ignore Perl errors from other files

---
 ale_linters/perl/perl.vim | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'ale_linters/perl/perl.vim')

diff --git a/ale_linters/perl/perl.vim b/ale_linters/perl/perl.vim
index ab4defbc..53c91d36 100644
--- a/ale_linters/perl/perl.vim
+++ b/ale_linters/perl/perl.vim
@@ -20,17 +20,21 @@ endfunction
 function! ale_linters#perl#perl#Handle(buffer, lines) abort
     let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\)'
     let l:output = []
+    let l:basename = expand('#' . a:buffer . ':t')
 
     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, {
-        \   'lnum': l:line,
-        \   'text': l:text,
-        \   'type': l:type,
-        \})
+        if l:match[2][-len(l:basename):] ==# l:basename
+        \&& l:text !=# 'BEGIN failed--compilation aborted'
+            call add(l:output, {
+            \   'lnum': l:line,
+            \   'text': l:text,
+            \   'type': l:type,
+            \})
+        endif
     endfor
 
     return l:output
-- 
cgit v1.2.3