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 +- t/tests/Net/Hawk/Utils.t | 8 ++++---- 2 files changed, 5 insertions(+), 5 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) 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, diff --git a/t/tests/Net/Hawk/Utils.t b/t/tests/Net/Hawk/Utils.t index 7db7b1d..7449cb3 100644 --- a/t/tests/Net/Hawk/Utils.t +++ b/t/tests/Net/Hawk/Utils.t @@ -18,19 +18,19 @@ subtest { Net::Hawk::Errors::BadRequest, text => rx:s/invalid header/; - throws_like { parse_authorization_header('hawk: bad') }, + throws_like { parse_authorization_header('hawk bad') }, Net::Hawk::Errors::BadRequest, text => rx:i:s/bad header/; - throws_like { parse_authorization_header('hawk: bad="a"') }, + throws_like { parse_authorization_header('hawk bad="a"') }, Net::Hawk::Errors::BadRequest, text => rx:i:s/unknown attribute/; - throws_like { parse_authorization_header('hawk: id="a", id="b"') }, + throws_like { parse_authorization_header('hawk id="a", id="b"') }, Net::Hawk::Errors::BadRequest, text => rx:i:s/duplicate attribute/; - is_deeply( parse_authorization_header('hawk: id="1"'), + is_deeply( parse_authorization_header('hawk id="1"'), { id => '1' }, 'ok parse'); }; -- cgit v1.2.3