diff options
| author |   Kent Fredric <kentfredric@gmail.com> | 2012-01-06 19:11:56 +1300 |
|---|---|---|
| committer | Kent Fredric <kentfredric@gmail.com> | 2012-01-06 19:11:56 +1300 |
| commit | 3c92deed7336c728b70aed7e3948154f2032f2f2 (patch) | |
| tree | b363150c501861dc3d3cd28934af39a7dba8c1e7 /scripts/lib | |
| parent | [scripts] optimise package query, fix end-point to _search, add debug options... (diff) | |
| download | perl-overlay-3c92deed7336c728b70aed7e3948154f2032f2f2.tar.gz perl-overlay-3c92deed7336c728b70aed7e3948154f2032f2f2.tar.bz2 perl-overlay-3c92deed7336c728b70aed7e3948154f2032f2f2.zip | |
[scripts] fix various post( to search endpoints due to weird server-side changes
Diffstat (limited to 'scripts/lib')
| -rw-r--r-- | scripts/lib/metacpan.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/lib/metacpan.pm b/scripts/lib/metacpan.pm index 702a2a962..cad98a74b 100644 --- a/scripts/lib/metacpan.pm +++ b/scripts/lib/metacpan.pm @@ -102,7 +102,7 @@ sub find_dist_all { $opts->{mangle}->( $q, ); } - my $results = mcpan->post( file => $q ); + my $results = mcpan->post( "file/_search" => $q ); if ( not $opts->{notrim} ) { $results->{hits}->{hits} = [ grep { _skip_result( $_, $module ) } @{ $results->{hits}->{hits} } ]; @@ -173,7 +173,7 @@ sub find_release { query => { constant_score => $filter }, }; my @query = ( - release => $q + "release/_search" => $q ); if ( $opts->{mangle} ) { |