fix the pod end point when given a module name

haarg · haarg · commit 7bd1d8571d34 · 2025-08-11T20:41:21.000+02:00
The find_pod method returns a hashref of attributes. It does not include
a _source field.
diff --git a/lib/MetaCPAN/Server/Controller/Pod.pm b/lib/MetaCPAN/Server/Controller/Pod.pm
@@ -39,7 +39,7 @@ sub get : Path('') : Args(1) {
     $module = $c->model('ESQuery')->file->find_pod($module)
         or $c->detach( '/not_found', [] );
     $c->forward( 'find',
-        [ map { $module->{_source}{$_} } qw(author release path) ] );
+        [ map { $module->{$_} } qw(author release path) ] );
 }
 
 sub find_dist_links {

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ sub get : Path('') : Args(1) {`
`39`	`39`	`$module = $c->model('ESQuery')->file->find_pod($module)`
`40`	`40`	`or $c->detach( '/not_found', [] );`
`41`	`41`	`$c->forward( 'find',`
`42`		`- [ map { $module->{_source}{$_} } qw(author release path) ] );`
	`42`	`+ [ map { $module->{$_} } qw(author release path) ] );`
`43`	`43`	`}`
`44`	`44`
`45`	`45`	`sub find_dist_links {`