diff --git a/lib/MetaCPAN/Query/Release.pm b/lib/MetaCPAN/Query/Release.pm index 1a517f6c0..9b550d43c 100644 --- a/lib/MetaCPAN/Query/Release.pm +++ b/lib/MetaCPAN/Query/Release.pm @@ -22,12 +22,16 @@ sub author_status { my ( $id_2, $id_1 ) = $id =~ /^((\w)\w)/; $status->{links} = { - cpan_directory => "http://cpan.org/authors/id/$id_1/$id_2/$id", - cpants => "http://cpants.cpanauthors.org/author/$id", + cpan_directory => + "https://www.cpan.org/authors/id/$id_1/$id_2/$id", + backpan_directory => + "https://cpan.metacpan.org/authors/id/$id_1/$id_2/$id", + cpants => "https://cpants.cpanauthors.org/author/$id", cpantesters_reports => - "http://cpantesters.org/author/$id_1/$id.html", - cpantesters_matrix => "http://matrix.cpantesters.org/?author=$id", - metacpan_explorer => + "https://www.cpantesters.org/author/$id_1/$id.html", + cpantesters_matrix => + "https://matrix.cpantesters.org/?author=$id", + metacpan_explorer => "https://explorer.metacpan.org/?url=/author/$id", repology => "https://repology.org/maintainer/$id%40cpan", }; diff --git a/t/server/controller/author.t b/t/server/controller/author.t index ac736094d..9006bb76e 100644 --- a/t/server/controller/author.t +++ b/t/server/controller/author.t @@ -89,7 +89,7 @@ test_psgi app, sub { is_deeply( [ sort keys %{$links} ], [ - qw< cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology> + qw< backpan_directory cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology> ], 'links has the correct keys' );