diff options
-rw-r--r-- | lib/Net/Hawk/Utils.pm | 2 | ||||
-rw-r--r-- | 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<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, 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'); }; |