diff options
author | dakkar <dakkar@thenautilus.net> | 2014-12-28 17:09:19 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2014-12-28 17:09:19 +0000 |
commit | 5925bbe53a6dc467c47ec5835a61edb55a4a17c8 (patch) | |
tree | e97e092b4a86ca87ac16a5541043ad76c9163c75 /lib/Net/Hawk/Utils.pm | |
parent | empty test just because (diff) | |
download | net-hawk-5925bbe53a6dc467c47ec5835a61edb55a4a17c8.tar.gz net-hawk-5925bbe53a6dc467c47ec5835a61edb55a4a17c8.tar.bz2 net-hawk-5925bbe53a6dc467c47ec5835a61edb55a4a17c8.zip |
fix auth header parsing
Diffstat (limited to 'lib/Net/Hawk/Utils.pm')
-rw-r--r-- | lib/Net/Hawk/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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<id ts nonce hash ext mac app dlg>) 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, |