summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorgmaurice <germain.maurice@linkfluence.net>2011-06-25 20:52:38 +0200
committergmaurice <germain.maurice@linkfluence.net>2011-06-25 20:52:38 +0200
commit4fe4d90d96b77a2265be5f808f9ed0c2612d28d1 (patch)
tree626aa1cef28ffb7f6d3825568a110e3c130fe989
parentadd basic support of riaksearch (need to see what is missed) (diff)
downloadnet-riak-4fe4d90d96b77a2265be5f808f9ed0c2612d28d1.tar.gz
remove index param from being added to query params
-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);
};