Browse files

Middleware-RequestHeaders-0.03 included a lot of modules in his local…

…-lib directory
  • Loading branch information...
1 parent 62d53ab commit 9b92d946d5f05adaabe27927ea60916ea327470a @semuel committed Sep 25, 2012
Showing with 9 additions and 7 deletions.
  1. +9 −7 lib/Dist/Surveyor.pm
View
16 lib/Dist/Surveyor.pm
@@ -701,9 +701,10 @@ sub get_candidate_cpan_dist_releases {
if grep { not $_->{fields}{release} } @$hits; # XXX temp, seen once but not since
# filter out perl-like releases
- @$hits = grep {
- $_->{fields}{release} !~ /^(perl|ponie|parrot|kurila|SiePerl-5.6.1-)/;
- } @$hits;
+ @$hits =
+ grep { $_->{fields}{path} !~ m!^(?:t|xt|tests?|inc|samples?|ex|examples?|bak|local-lib)\b! }
+ grep { $_->{fields}{release} !~ /^(perl|ponie|parrot|kurila|SiePerl-5.6.1-)/ }
+ @$hits;
for my $hit (@$hits) {
$hit->{release_id} = delete $hit->{_parent};
@@ -764,9 +765,10 @@ sub get_candidate_cpan_dist_releases_fallback {
if grep { not $_->{fields}{release} } @$hits; # XXX temp, seen once but not since
# filter out perl-like releases
- @$hits = grep {
- $_->{fields}{release} !~ /^(perl|ponie|parrot|kurila|SiePerl-5.6.1-)/;
- } @$hits;
+ @$hits =
+ grep { $_->{fields}{path} !~ m!^(?:t|xt|tests?|inc|samples?|ex|examples?|bak|local-lib)\b! }
+ grep { $_->{fields}{release} !~ /^(perl|ponie|parrot|kurila|SiePerl-5.6.1-)/ }
+ @$hits;
for my $hit (@$hits) {
$hit->{release_id} = delete $hit->{_parent};
@@ -815,7 +817,7 @@ sub get_module_versions_in_release {
# XXX try to ignore files that won't get installed
# XXX should use META noindex!
- if ($path =~ m!^(?:t|xt|tests?|inc|samples?|ex|examples?|bak)\b!) {
+ if ($path =~ m!^(?:t|xt|tests?|inc|samples?|ex|examples?|bak|local-lib)\b!) {
warn "$author/$release: ignored non-installed module $path\n"
if $opt_debug;
next;

0 comments on commit 9b92d94

Please sign in to comment.