fix 'source' parameter for request body

metacpan · Sep 9, 2016 · ab69614 · ab69614
1 parent 5ba3d13
commit ab69614
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Server/Controller.pm b/lib/MetaCPAN/Server/Controller.pm
@@ -112,7 +112,7 @@ sub search : Path('_search') : ActionClass('Deserialize') {
                 {
                     index => $c->model('CPAN')->index,
                     type  => $self->type,
-                    body  => $c->req->data,
+                    body  => $c->req->data || delete $params->{source},
                     %$params,
                 }
             )