X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Ft%2F006-pod-coverage.t;h=65bb4c2ca881a5703fe540d32169e6cd5e7c63d5;hb=3c9dfd1e95fae5c31df1fbcb6bdec2982a69a004;hp=fd1c40582fea0b929fbc52439f39cabd3f01c7dc;hpb=9908e03e922b670437bcd89b6873f9ebc914567e;p=libguestfs.git

diff --git a/perl/t/006-pod-coverage.t b/perl/t/006-pod-coverage.t
index fd1c405..65bb4c2 100644
--- a/perl/t/006-pod-coverage.t
+++ b/perl/t/006-pod-coverage.t
@@ -13,7 +13,7 @@
 #
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use Test::More;
 use strict;
@@ -21,4 +21,8 @@ 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 ();
+all_pod_coverage_ok ({
+    also_private => [ qr/^test0.*/,
+                      qr/^debug.*/,
+                      qr/^internal.*/ ]
+});