From 85a623bfef44c08507189881ed8676190433d127 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sun, 8 Sep 2024 12:45:31 +0200
Subject: [PATCH] fix login controller generating list of login methods

---
 lib/MetaCPAN/Server/Controller/Login.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/MetaCPAN/Server/Controller/Login.pm b/lib/MetaCPAN/Server/Controller/Login.pm
index d4e5602f7..df13611f8 100644
--- a/lib/MetaCPAN/Server/Controller/Login.pm
+++ b/lib/MetaCPAN/Server/Controller/Login.pm
@@ -29,7 +29,7 @@ sub auto : Private {
 sub index : Path {
     my ( $self, $c ) = @_;
     my @login = map { "<li><a href=\"/login/" . lc($_) . "\">$_</a></li>" }
-        sort grep {s/^Login:://} $c->controllers;
+        sort map /^Login::(.*)/, $c->controllers;
     $c->res->content_type('text/html');
     $c->res->body(qq{<pre><h1>Login via</h1><ul>@login</ul></pre>});
 }