diff options
| author | Linus Nordberg <linus@nordu.net> | 2016-08-19 14:09:10 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2016-08-19 14:09:10 +0200 |
| commit | 5ce811ec17bf5ca624794dcdb75cdc13dbdb7081 (patch) | |
| tree | 2d915c3aad961675e84cb80f82d07302627c2569 /src/x509.erl | |
| parent | a4ef2ba028f9f3ba43a15934cb1ab95cad94cfa2 (diff) | |
Support R18 wrt detoxing precerts.
Fixes CATLFISH-80.
Diffstat (limited to 'src/x509.erl')
| -rw-r--r-- | src/x509.erl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/x509.erl b/src/x509.erl index 7ae73c3..9159cb3 100644 --- a/src/x509.erl +++ b/src/x509.erl @@ -326,11 +326,10 @@ remove_poison_ext(#'Certificate'{tbsCertificate = TBSCert}) -> pubkey_cert:extensions_list(TBSCert#'TBSCertificate'.extensions)), TBSCert#'TBSCertificate'{extensions = Extensions}. --spec poisoned_leaf_p(binary()) -> boolean(). poisoned_leaf_p(#'Extension'{extnID = ?LEAF_POISON_OID, critical = true, - extnValue = ?LEAF_POISON_VAL}) -> - true; + extnValue = ExtnValue}) -> + ExtnValue =:= catlfish_compat:poison_val(?LEAF_POISON_VAL); poisoned_leaf_p(_) -> false. |