From 5c8e2ab855d2416bc43d8788f4734d46418720a4 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 1 May 2025 17:51:04 +0200
Subject: [PATCH 1/2] fix author links to use https

---
 lib/MetaCPAN/Query/Release.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lib/MetaCPAN/Query/Release.pm b/lib/MetaCPAN/Query/Release.pm
index 1a517f6c0..f23af1e5f 100644
--- a/lib/MetaCPAN/Query/Release.pm
+++ b/lib/MetaCPAN/Query/Release.pm
@@ -22,12 +22,14 @@ 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",
+            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",
         };

From 53720fa8cf7b851563b3d069301d6edb8c1244a0 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 1 May 2025 17:51:13 +0200
Subject: [PATCH 2/2] add missing backpan author link

---
 lib/MetaCPAN/Query/Release.pm | 2 ++
 t/server/controller/author.t  | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/MetaCPAN/Query/Release.pm b/lib/MetaCPAN/Query/Release.pm
index f23af1e5f..9b550d43c 100644
--- a/lib/MetaCPAN/Query/Release.pm
+++ b/lib/MetaCPAN/Query/Release.pm
@@ -24,6 +24,8 @@ sub author_status {
         $status->{links} = {
             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 =>
                 "https://www.cpantesters.org/author/$id_1/$id.html",
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'
     );