From 71d98fc6b1a13cd3f4eff8cb723de8698fa7b0cc Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sun, 14 Jul 2024 21:54:39 +0200
Subject: [PATCH] fix code generation in oauth2 controller

tr takes a character class. Trying to give it a class wrapped in
brackets will try to convert the bracket characters. We're just
generating a random ID, so it's ok for the format being generated to
change.
---
 lib/MetaCPAN/Server/Controller/OAuth2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/MetaCPAN/Server/Controller/OAuth2.pm b/lib/MetaCPAN/Server/Controller/OAuth2.pm
index f044c443a..f9e592a82 100644
--- a/lib/MetaCPAN/Server/Controller/OAuth2.pm
+++ b/lib/MetaCPAN/Server/Controller/OAuth2.pm
@@ -109,7 +109,7 @@ sub bad_request {
 
 sub _build_code {
     my $digest = Digest::SHA::sha1_base64( rand() . $$ . {} . time );
-    $digest =~ tr/[+\/]/-_/;
+    $digest =~ tr{+/}{-_};
     return $digest;
 }