[lintian] 01/01: c/manpages: Work around D::Cover

[Niels Thykier <nthykier@moszumanska.debian.org>]

This is an automated email from the git hooks/post-receive script.

nthykier pushed a commit to branch master
in repository lintian.

commit 50cc1ba9491b3a8952fcb667910a008bcdab59b0
Author: Niels Thykier <niels@thykier.net>
Date:   Thu Mar 20 21:04:03 2014 +0100

    c/manpages: Work around D::Cover
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 checks/manpages.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/checks/manpages.pm b/checks/manpages.pm
index 57290bb..5118e0b 100644
--- a/checks/manpages.pm
+++ b/checks/manpages.pm
@@ -23,6 +23,8 @@ use strict;
 use warnings;
 use autodie;
 
+use constant LINTIAN_COVERAGE => ($ENV{'LINTIAN_COVERAGE'}//0);
+
 use File::Basename;
 use List::MoreUtils qw(any none);
 use Text::ParseWords ();
@@ -277,6 +279,13 @@ sub run {
                 close $write;
             }
             while (<$read>) {
+                # Devel::Cover causes some annoying deep recursion
+                # warnings and sometimes in our child process.
+                # Filter them out, but only during coverage.
+                next if LINTIAN_COVERAGE and m{
+                    \A Deep [ ] recursion [ ] on [ ] subroutine [ ]
+                    "[^"]+" [ ] at [ ] .*B/Deparse.pm [ ] line [ ]
+                   \d+}xsm;
                 # ignore progress information from man
                 next if /^Reformatting/;
                 next if /^\s*$/;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git