Extract module from array if necessary.

metacpan · Apr 23, 2016 · e43b380 · e43b380
1 parent 6243fc0
commit e43b380
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Search.pm b/lib/MetaCPAN/Web/Controller/Search.pm
@@ -42,8 +42,9 @@ sub index : Path {
         )
     {
         my $module = $model->first($query)->recv;
-        if ( $query eq $module ) {
-            $c->res->redirect("/pod/$module");
+        $module = $module->[0] if $module;
+        if ( $module && $module eq $query ) {
+            $c->res->redirect( '/pod/' . $module->[0] );
             $c->detach;
         }
         else {