From 59355844b623dc288978369a8034ce30e31bfd3b Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Fri, 5 Jul 2013 22:34:19 +1000
Subject: [PATCH] [rt #86658] scan MANIFEST for pod to check, not blib

Not all the files are always installed
---
 t/950-kwalitee/060-podstruct.t | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/t/950-kwalitee/060-podstruct.t b/t/950-kwalitee/060-podstruct.t
index 837d0c25..78420f24 100644
--- a/t/950-kwalitee/060-podstruct.t
+++ b/t/950-kwalitee/060-podstruct.t
@@ -7,21 +7,19 @@ BEGIN {
   eval 'use Pod::Parser 1.50;';
   plan skip_all => "Pod::Parser 1.50 required for podlinkcheck" if $@;
 }
-use File::Find;
 use File::Spec::Functions qw(rel2abs abs2rel splitdir);
+use ExtUtils::Manifest qw(maniread);
 
 # this test is intended to catch errors like in
 # https://rt.cpan.org/Ticket/Display.html?id=85413
 
 my @pod; # files with pod
 
-my $base = rel2abs("blib/lib");
+my $base = rel2abs(".");
 
-my @files;
-find(sub {
-       -f && /\.(pod|pm)$/
-	 and push @files, $File::Find::name;
-     }, $base);
+my $manifest = maniread();
+
+my @files = sort grep /\.(pod|pm)$/ && !/^inc/, keys %$manifest;
 
 my %item_in;
 
-- 
2.39.5