From b844efc3ba3b0f5f589d8360c257137aa7232c95 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Thu, 17 Mar 2016 22:04:14 -0400 Subject: [PATCH] Bug 16101: Exclude /usr/share/perl errors in check_valid TEST PLAN --------- 1) In kohaclone, apply bug 15870 2) Run the koha qa test tools -- the valid check fails 3) In your qa test tools apply this patch 4) In kohaclone, run the koha qa test tools again -- everything should pass --- QohA/File/Perl.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/QohA/File/Perl.pm b/QohA/File/Perl.pm index b25035a..e0c5548 100644 --- a/QohA/File/Perl.pm +++ b/QohA/File/Perl.pm @@ -139,6 +139,10 @@ sub check_valid { my @errors = split '\n', $rs; + +# exclude /usr/share/perl errors + @errors = grep {!/at \/usr\/share\/perl/} @errors; + s/at .* line .*$// for @errors; s/.*syntax OK$// for @errors; -- 2.1.4