summary refs log tree commit diff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Net/Riak/Role/REST/Search.pm13
1 files changed, 9 insertions, 4 deletions
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);
 };