Permalink
Browse files

prevent indexing of bleadperls for the time being

  • Loading branch information...
1 parent a2da7ac commit 9ec53eca51148a31d2d394b4c6709dd7e90ecf1b @andk committed Sep 21, 2012
Showing with 15 additions and 0 deletions.
  1. +15 −0 lib/PAUSE/dist.pm
View
@@ -220,6 +220,11 @@ sub isa_regular_perl {
scalar $dist =~ /$PAUSE::dist::ISA_REGULAR_PERL/;
}
+sub isa_blead_perl {
+ my($self,$dist) = @_;
+ scalar $dist =~ /$PAUSE::dist::ISA_BLEAD_PERL/;
+}
+
# package PAUSE::dist;
sub examine_dist {
my($self) = @_;
@@ -268,6 +273,16 @@ sub examine_dist {
$dist =~ /TRIAL/
||
$dist =~ m|/perl-\d+\.\d+\.\d+-RC\d+\.|x
+ ||
+ # 2012-09-21: stopping indexing of bleadperls entirely now; in
+ # the past the idea was that a new module in perl should reserve
+ # its namespace early but with the yearly release schedule and
+ # so many dual life modules we probably can skip it; also note
+ # that we did the indexing on bleadperls *wrong* as yesterday's
+ # 5.17.4 impressingly demonstrated. A huge amount of dual life
+ # distros got indexed for this bleadperl instead of leaving them
+ # alone.
+ $self->isa_blead_perl($dist)
) {
$self->verbose(1,"Dist '$dist' is a developer release\n");
$self->{SUFFIX} = "N/A";

0 comments on commit 9ec53ec

Please sign in to comment.