From b0371b26d2b4d314b427c55296c96323cacc7a81 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordu.net>
Date: Tue, 19 Jan 2016 17:22:26 +0100
Subject: Add compatibility layer for digging around in non-public data
 structures.

---
 src/sign.erl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/sign.erl')

diff --git a/src/sign.erl b/src/sign.erl
index ced218a..2c55429 100644
--- a/src/sign.erl
+++ b/src/sign.erl
@@ -92,8 +92,7 @@ read_keyfile_ec_logid(KeyFile) ->
 
 pem_entry_decode({'SubjectPublicKeyInfo', Der, _}) ->
     SPKI = public_key:der_decode('SubjectPublicKeyInfo', Der),
-    #'SubjectPublicKeyInfo'{subjectPublicKey = {_, Octets},
-                            algorithm = Algorithm} = SPKI,
+    {Octets, Algorithm} = plop_compat:unpack_spki(SPKI),
     #'AlgorithmIdentifier'{parameters = ECParams} = Algorithm,
     Params = public_key:der_decode('EcpkParameters', ECParams),
     Point = #'ECPoint'{point = Octets},
-- 
cgit v1.1