Make encoding errors of known extensions handable by the verify_fun

close erlang#6402
IngelaAndin · Nov 11, 2022 · 44cdc54 · andreasanta · Nov 21, 2022 · 44cdc54
1 parent aba5ad6
commit 44cdc54
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/lib/public_key/src/pubkey_cert_records.erl b/lib/public_key/src/pubkey_cert_records.erl
@@ -292,12 +292,17 @@ decode_extensions(asn1_NOVALUE) ->
 decode_extensions(Exts) ->
     lists:map(fun(Ext = #'Extension'{extnID=Id, extnValue=Value0}) ->
 		      case extension_id(Id) of
-			  undefined -> Ext;
+			  undefined ->
+                              Ext;
 			  Type ->
-			      {ok, Value} = 'OTP-PUB-KEY':decode(Type, iolist_to_binary(Value0)),
-			      Ext#'Extension'{extnValue=transform(Value,decode)}
-		      end
-	      end, Exts).
+                              case 'OTP-PUB-KEY':decode(Type, iolist_to_binary(Value0)) of
+                                  {ok, Value} ->
+                                      Ext#'Extension'{extnValue=transform(Value,decode)};
+                                  _  ->
+                                      Ext
+                              end
+                      end
+              end, Exts).
 
 encode_extensions(asn1_NOVALUE) ->
     asn1_NOVALUE;