diff options
Diffstat (limited to 'auth.cgi')
-rwxr-xr-x | auth.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -43,8 +43,8 @@ ThrowUserError("auth_delegation_invalid_description") unless $description =~ /^[\w\s]{3,255}$/; my $callback_uri = URI->new($callback); -$callback_uri->scheme =~ /^https?$/ - or ThrowUserError('auth_delegation_illegal_protocol', { protocol => scalar $callback_uri->scheme }); +ThrowUserError('auth_delegation_illegal_protocol', { protocol => scalar $callback_uri->scheme }) + unless $callback_uri->scheme eq 'https'; my $callback_base = $callback_uri->clone; $callback_base->query(undef); |