diff --git a/lib/MetaCPAN/Server/Controller/Changes.pm b/lib/MetaCPAN/Server/Controller/Changes.pm index f66c06d7a..9ca097dbe 100644 --- a/lib/MetaCPAN/Server/Controller/Changes.pm +++ b/lib/MetaCPAN/Server/Controller/Changes.pm @@ -83,6 +83,8 @@ sub by_releases : Path('by_releases') : Args(0) { for my $release ( @{ $ret->{releases} } ) { my ( $author, $name, $path ) = @{$release}{qw(author name changes_file)}; + next + unless $path; my $source = $c->model('Source')->path( $author, $name, $path ) or next;