From: Richard W.M. Jones <rjones@redhat.com>
Date: Thu, 11 Nov 2010 22:25:15 +0000 (+0000)
Subject: perl: Ignore debug functions in Test::Pod::Coverage.
X-Git-Tag: 1.7.5~8
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=3431f397d34740fcd3a2d6f94d03af6e5f8f1a36

perl: Ignore debug functions in Test::Pod::Coverage.
---

diff --git a/perl/t/006-pod-coverage.t b/perl/t/006-pod-coverage.t
index c648b34..61e7b96 100644
--- a/perl/t/006-pod-coverage.t
+++ b/perl/t/006-pod-coverage.t
@@ -21,4 +21,7 @@ use warnings;
 
 eval "use Test::Pod::Coverage 1.00";
 plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD" if $@;
-all_pod_coverage_ok ({also_private => [ qr/^test0.*/ ]});
+all_pod_coverage_ok ({
+    also_private => [ qr/^test0.*/,
+                      qr/^debug.*/ ]
+});