Add more internal files and directories to no_index in META.yml
Nicholas Clark [Thu, 18 Mar 2010 13:57:39 +0000 (13:57 +0000)]
This prevents search.cpan.org finding and formatting template and internal
documentation. Fixes RT #73632.

META.yml
Porting/makemeta

index 048b446..edb027d 100644 (file)
--- 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
 
index 72c66d2..532ee85 100644 (file)
@@ -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} = ();