From 5925bbe53a6dc467c47ec5835a61edb55a4a17c8 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 28 Dec 2014 17:09:19 +0000 Subject: fix auth header parsing --- lib/Net/Hawk/Utils.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Net/Hawk/Utils.pm b/lib/Net/Hawk/Utils.pm index a476ac9..76478df 100644 --- a/lib/Net/Hawk/Utils.pm +++ b/lib/Net/Hawk/Utils.pm @@ -25,7 +25,7 @@ package Net::Hawk::Utils { multi parse_authorization_header(Str:D $header, @keys=qw) returns Hash { my $valid_keys = Set(@keys); - my ($attr_string) = @($header ~~ m:i{^ hawk [\: \s+ (.+) ]? $} + my ($attr_string) = @($header ~~ m:i{^ hawk [ \s+ (.+) ]? $} or Net::Hawk::Errors::BadRequest.new( text => 'invalid header syntax', value => $header, -- cgit v1.2.3