Merge pull request #1235 from metacpan/haarg/fix-oauth-code

haarg · web-flow · commit b08ff6f82c9a · 2024-07-14T23:36:07.000+02:00
fix code generation in oauth2 controller
diff --git 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;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -109,7 +109,7 @@ sub bad_request {`
`109`	`109`
`110`	`110`	`sub _build_code {`
`111`	`111`	`my $digest = Digest::SHA::sha1_base64( rand() . $$ . {} . time );`
`112`		`- $digest =~ tr/[+\/]/-_/;`
	`112`	`+ $digest =~ tr{+/}{-_};`
`113`	`113`	`return $digest;`
`114`	`114`	`}`
`115`	`115`