X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F00dependencies.t;h=c979d8ee7472ae8cbab39062d9410e4a554dc44c;hb=a44aaf2a3c6e12fd2329a85718f2fc1fa077f9a4;hp=ed28fb098532ceefec0a9f501087784f1209d985;hpb=fae07016dc0e300ca65f3ca03d408c47d80c9217;p=scpubgit%2Fstemmatology.git

diff --git a/t/00dependencies.t b/t/00dependencies.t
index ed28fb0..c979d8e 100644
--- a/t/00dependencies.t
+++ b/t/00dependencies.t
@@ -17,6 +17,16 @@ if ($@) { plan skip_all => 'Module::CoreList not installed' }
 
 plan 'no_plan';
 
+my %skipped;
+if( -f 'MANIFEST.SKIP' ) {
+	# We don't want these
+	open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open manifest skip file";
+	while(<SKIP>) {
+		chomp;
+		$skipped{$_} = 1;
+	}
+	close SKIP;
+}
 my %used;
 find( \&wanted, qw/ lib t / );
 
@@ -25,6 +35,7 @@ sub wanted {
     return if $File::Find::dir  =~ m!/.git($|/)!;
     return if $File::Find::name =~ /~$/;
     return if $File::Find::name =~ /\.(pod|html)$/;
+    return if $skipped{$File::Find::name};
 
     # read in the file from disk
     my $filename = $_;