Merge pull request #427 from CPAN-API/leo/do-not-index-perl6

Do not index anything in a /Perl6/ directory
metacpan · Dec 15, 2015 · b68a8b7 · b68a8b7
2 parents 4ab3bc1 + eaaefbf
commit b68a8b7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -123,6 +123,12 @@ sub run {
             log_error {"Dunno what $_ is"};
         }
     }
+
+    # Strip off any files in a Perl6 folder
+    # e.g. http://www.cpan.org/authors/id/J/JD/JDV/Perl6/
+    # As here we are indexing perl5 only
+    @files = grep { $_ !~ m{/Perl6/} } @files;
+
     log_info { scalar @files, " archives found" } if ( @files > 1 );
 
     # build here before we fork