Commit b3952f89 authored by Clément OUDOT's avatar Clément OUDOT
Browse files

token_type is case insensitive (#1474)

parent 733e349f
......@@ -461,7 +461,7 @@ sub checkTokenResponseValidity {
my ( $self, $json ) = @_;
# token_type MUST be Bearer
unless ( $json->{token_type} eq "Bearer" ) {
unless ( $json->{token_type} =~ /^Bearer$/i ) {
$self->lmLog(
"Token type is " . $json->{token_type} . " but must be Bearer",
'error' );
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment