File otp_src_18.3.4.4-lib-stdlib-beam_lib-crypto.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File otp_src_18.3.4.4-lib-stdlib-beam_lib-crypto.patch of Package erlang (Revision 7c390fa106c521ca29fda7510cb2073e)

Currently displaying revision 7c390fa106c521ca29fda7510cb2073e , Show latest

diff -Ndurp otp_src_18.3.4.4/lib/stdlib/src/beam_lib.erl otp_src_18.3.4.4-lib-stdlib-beam_lib-crypto/lib/stdlib/src/beam_lib.erl
--- otp_src_18.3.4.4/lib/stdlib/src/beam_lib.erl	2016-08-11 17:24:09.000000000 +0300
+++ otp_src_18.3.4.4-lib-stdlib-beam_lib-crypto/lib/stdlib/src/beam_lib.erl	2016-08-16 11:48:11.366332021 +0300
@@ -888,10 +888,10 @@ decrypt_abst(Type, Module, File, Id, Ato
     end.
 
 decrypt_abst_1({Type,Key,IVec,_BlockSize}, Bin) ->
-    ok = start_crypto(),
-    NewBin = crypto:block_decrypt(Type, Key, IVec, Bin),
-    Term = binary_to_term(NewBin),
-    anno_from_term(Term).
+    case start_crypto() of
+	ok -> anno_from_term(binary_to_term(crypto:block_decrypt(Type, Key, IVec, Bin)));
+	{error, _} = E -> E
+    end.
 
 anno_from_term({raw_abstract_v1, Forms}) ->
     {raw_abstract_v1, anno_from_forms(Forms)};
@@ -908,11 +908,11 @@ anno_from_forms(Forms) ->
     [erl_parse:anno_from_term(Form) || Form <- Forms].
 
 start_crypto() ->
-    case crypto:start() of
-	{error, {already_started, _}} ->
-	    ok;
-	ok ->
-	    ok
+    try crypto:start() of
+	{error, {already_started, _}} -> ok;
+	ok -> ok
+    catch
+	error:_ -> {error, [{none, ?MODULE, no_crypto}]}
     end.
 
 get_crypto_key(What) ->

Places

File otp_src_18.3.4.4-lib-stdlib-beam_lib-crypto.patch of Package erlang (Revision 7c390fa106c521ca29fda7510cb2073e)

Places