From 71d98fc6b1a13cd3f4eff8cb723de8698fa7b0cc Mon Sep 17 00:00:00 2001 From: Graham Knop 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; }