when doing the POST version of a view query, remember to send the res…

…t of the params
beppu · Apr 13, 2011 · bb2d84f · bb2d84f
1 parent 0fd7189
commit bb2d84f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/AnyEvent/CouchDB/Database.pm b/lib/AnyEvent/CouchDB/Database.pm
@@ -387,8 +387,10 @@ sub view {
   my $uri = $self->uri . "_design/" . $dname . "/_view/" . $vname;
   if ( $options->{keys} ) {
     my $body = { keys => $options->{keys} };
+    my $opts = { %$options };
+    delete $opts->{keys};
     http_request(
-      POST    => $uri,
+      POST    => $uri . $query->($opts),
       headers => $self->_build_headers($options),
       body    => $self->json($body),
       $cb