Merge pull request #1327 from metacpan/leo/remove_author_backpan_dir

Author: ranguard

lib/MetaCPAN/Query/Release.pm

@@ -22,10 +22,8 @@ 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",
-            backpan_directory =>
-                "https://cpan.metacpan.org/authors/id/$id_1/$id_2/$id",
-            cpants              => "http://cpants.cpanauthors.org/author/$id",
+            cpan_directory => "http://cpan.org/authors/id/$id_1/$id_2/$id",
+            cpants         => "http://cpants.cpanauthors.org/author/$id",
             cpantesters_reports =>
                 "http://cpantesters.org/author/$id_1/$id.html",
             cpantesters_matrix => "http://matrix.cpantesters.org/?author=$id",

t/server/controller/author.t

@@ -89,7 +89,7 @@ test_psgi app, sub {
     is_deeply(
         [ sort keys %{$links} ],
         [
-            qw< backpan_directory cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology>
+            qw< cpan_directory cpantesters_matrix cpantesters_reports cpants metacpan_explorer repology>
         ],
         'links has the correct keys'
     );