summaryrefslogtreecommitdiff
path: root/src/catlfish_compat.erl
diff options
context:
space:
mode:
authorMagnus Ahltorp <map@kth.se>2017-02-08 15:38:52 +0100
committerMagnus Ahltorp <map@kth.se>2017-02-08 15:38:52 +0100
commit9f3fce20f1f3e07b11163a4d7f6a6596fffa7705 (patch)
tree9bf12e1059001eda0031fe97e0a6d8aec2695d4b /src/catlfish_compat.erl
parent9611100d3a0c841770a4cedc7507b6d27331b495 (diff)
Support for Erlang/OTP 19
Diffstat (limited to 'src/catlfish_compat.erl')
-rw-r--r--src/catlfish_compat.erl9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/catlfish_compat.erl b/src/catlfish_compat.erl
index adf4a1a..a0ccdc2 100644
--- a/src/catlfish_compat.erl
+++ b/src/catlfish_compat.erl
@@ -27,6 +27,11 @@ unpack_issuer("18", Issuer) ->
#'SubjectPublicKeyInfo'{
algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
subjectPublicKey = Key} = Issuer,
+ {Alg, Params, Key};
+unpack_issuer("19", Issuer) ->
+ #'SubjectPublicKeyInfo'{
+ algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
+ subjectPublicKey = Key} = Issuer,
{Alg, Params, Key}.
%% @doc Unpack a #'Certificate'.signature, return the signature.
@@ -37,6 +42,8 @@ unpack_signature("17", Signature) ->
{_, Sig} = Signature,
Sig;
unpack_signature("18", Signature) ->
+ Signature;
+unpack_signature("19", Signature) ->
Signature.
%% Use a list for R17 and a binary for newer versions.
@@ -45,4 +52,6 @@ poison_val("R16" ++ _, Val) ->
poison_val("17", Val) ->
Val;
poison_val("18", Val) ->
+ list_to_binary(Val);
+poison_val("19", Val) ->
list_to_binary(Val).