Minor changes.

metacpan · Jul 6, 2014 · ee40301 · oalders · Jul 7, 2014 · ee40301
1 parent 492f636
commit ee40301
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Document/Author.pm b/lib/MetaCPAN/Document/Author.pm
@@ -159,13 +159,14 @@ sub validate {
 
 sub authorsearch {
     my ( $self, @terms ) = @_;
-    my $query = join( " ", @terms );
+    my $empty = q{ };
+    my $query = join( $empty, @terms );
     return $self unless $query;
     return $self->query(
         {
             custom_score => {
                 query => { bool => { should => $query } },
-                script => "_score - doc['name'].value.length()/100",
+                script => '_score - doc[\'name\'].value.length()/100',
             }
         }
         )->filter(

diff --git a/lib/MetaCPAN/Server/Controller/Search/AuthorSearch.pm b/lib/MetaCPAN/Server/Controller/Search/AuthorSearch.pm
@@ -16,7 +16,7 @@ sub get : Local : Path('') : Args(0) {
     my $model = $self->model($c);
     $model = $model->fields( [qw(name pauseid gravatar_url)] )
         unless $model->fields;
-    my $data = $model->authorsearch( $c->req->param("q") )->raw;
+    my $data = $model->authorsearch( $c->req->param('q') )->raw;
     $c->stash( $data->all );
 }