From 4fe4d90d96b77a2265be5f808f9ed0c2612d28d1 Mon Sep 17 00:00:00 2001
From: gmaurice <germain.maurice@linkfluence.net>
Date: Sat, 25 Jun 2011 20:52:38 +0200
Subject: remove index param from being added to query params

---
 lib/Net/Riak/Role/REST/Search.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'lib/Net/Riak')

diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm
index c75b84b..161acf5 100644
--- a/lib/Net/Riak/Role/REST/Search.pm
+++ b/lib/Net/Riak/Role/REST/Search.pm
@@ -9,10 +9,13 @@ sub search {
     $request =
       $self->new_request( 'GET',
         [ $self->search_prefix, "select" ], $params ) unless $params->{index};
-    $request =
-      $self->new_request( 'GET',
-        [ $self->search_prefix, $params->{index}, "select" ], $params ) if $params->{index};
-
+    if ( $params->{index} ){
+        my $index = delete $params->{index};
+        $request =
+            $self->new_request( 'GET',
+                [ $self->search_prefix, $index, "select" ], $params );
+    }
+    
     my $http_response = $self->send_request($request);
 
     return if (!$http_response);
@@ -21,6 +24,8 @@ sub search {
     if ($status == 404) {
         return;
     }
+use YAML::Syck;
+warn Dump $http_response;
     JSON::decode_json($http_response->content);
 };
 
-- 
cgit 1.4.1