From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 18 Mar 2010 13:57:39 +0000 (+0000)
Subject: Add more internal files and directories to no_index in META.yml
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25c32de1d6c1a948fb0fff96b2dc1f17a177723a;p=p5sagit%2Fp5-mst-13.2.git

Add more internal files and directories to no_index in META.yml

This prevents search.cpan.org finding and formatting template and internal
documentation. Fixes RT #73632.
---

diff --git a/META.yml b/META.yml
index 048b446..edb027d 100644
--- a/META.yml
+++ b/META.yml
@@ -37,6 +37,7 @@ no_index:
     - dist/XSLoader
     - ext/Time-Local
     - lib/version
+    - win32
 
   file:
     - dist/IO/ChangeLog
@@ -81,6 +82,7 @@ no_index:
     - lib/Exporter.t
     - lib/Exporter/Heavy.pm
     - lib/newgetopt.pl
+    - lib/unicore/mktables
     - lib/version.pm
     - lib/version.pod
     - lib/version.t
@@ -92,4 +94,7 @@ no_index:
     - pod/pod2usage.PL
     - pod/podchecker.PL
     - pod/podselect.PL
+    - Porting/Maintainers.pm
+    - Porting/perldelta_template.pod
+    - TestInit.pm
 
diff --git a/Porting/makemeta b/Porting/makemeta
index 72c66d2..532ee85 100644
--- a/Porting/makemeta
+++ b/Porting/makemeta
@@ -16,8 +16,10 @@ die "$0: will not override $file, delete it first.\n" if -e $file;
 use Maintainers qw(%Modules get_module_files get_module_pat);
 
 my @CPAN  = grep { $Modules{$_}{CPAN} } keys %Modules;
-my @files = map { get_module_files($_) } @CPAN;
-my @dirs  = ('cpan', grep { -d $_ && $_  !~ /^cpan/ } map { get_module_pat($_) } @CPAN);
+my @files = ('lib/unicore/mktables', 'TestInit.pm',
+	     'Porting/Maintainers.pm', 'Porting/perldelta_template.pod',
+	     map { get_module_files($_) } @CPAN);
+my @dirs  = ('cpan', 'win32', grep { -d $_ && $_  !~ /^cpan/ } map { get_module_pat($_) } @CPAN);
 
 my %dirs;
 @dirs{@dirs} = ();