File tree 2 files changed +10
-6
lines changed
2 files changed +10
-6
lines changed Original file line number Diff line number Diff line change @@ -22,12 +22,16 @@ sub author_status {
22
22
23
23
my ( $id_2 , $id_1 ) = $id =~ / ^((\w )\w )/ ;
24
24
$status -> {links } = {
25
- cpan_directory => " http://cpan.org/authors/id/$id_1 /$id_2 /$id " ,
26
- cpants => " http://cpants.cpanauthors.org/author/$id " ,
25
+ cpan_directory =>
26
+ " https://www.cpan.org/authors/id/$id_1 /$id_2 /$id " ,
27
+ backpan_directory =>
28
+ " https://cpan.metacpan.org/authors/id/$id_1 /$id_2 /$id " ,
29
+ cpants => " https://cpants.cpanauthors.org/author/$id " ,
27
30
cpantesters_reports =>
28
- " http://cpantesters.org/author/$id_1 /$id .html" ,
29
- cpantesters_matrix => " http://matrix.cpantesters.org/?author=$id " ,
30
- metacpan_explorer =>
31
+ " https://www.cpantesters.org/author/$id_1 /$id .html" ,
32
+ cpantesters_matrix =>
33
+ " https://matrix.cpantesters.org/?author=$id " ,
34
+ metacpan_explorer =>
31
35
" https://explorer.metacpan.org/?url=/author/$id " ,
32
36
repology => " https://repology.org/maintainer/$id %40cpan" ,
33
37
};
Original file line number Diff line number Diff line change @@ -89,7 +89,7 @@ test_psgi app, sub {
89
89
is_deeply(
90
90
[ sort keys %{$links } ],
91
91
[
92
- qw< cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology>
92
+ qw< backpan_directory cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology>
93
93
],
94
94
' links has the correct keys'
95
95
);
You can’t perform that action at this time.
0 commit comments