Fix reliability

This commit is contained in:
Přemysl Eric Janouch 2017-06-07 06:35:35 +02:00
parent 1ec8274103
commit 3495eca5ad
Signed by: p
GPG Key ID: B715679E3A361BE6

View File

@ -34,7 +34,7 @@ my $header = { alg => 'RS256', jwk => { kty => 'RSA',
n => b64(pack 'H*', $pub_hex =~ s/\s|://gr) n => b64(pack 'H*', $pub_hex =~ s/\s|://gr)
}}; }};
my $json = JSON::PP->new->pretty(0); my $json = JSON::PP->new->pretty(0)->canonical(1);
my $thumbprint = b64(sha256($json->encode($header->{jwk}))); my $thumbprint = b64(sha256($json->encode($header->{jwk})));
# Pipe data through an external program, keeping status in $? # Pipe data through an external program, keeping status in $?