[gentoo-commits] proj/perl-overlay:master commit in: scripts/lib/

["Kent Fredric" <kentfredric@gmail.com>]

commit:     3c92deed7336c728b70aed7e3948154f2032f2f2
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Fri Jan  6 06:11:56 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Fri Jan  6 06:11:56 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=3c92deed

[scripts] fix various post( to search endpoints due to weird server-side changes

---
 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 702a2a9..cad98a7 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} ) {