From 4b6716ce5198b99ed32def0103ccc50008bbc474 Mon Sep 17 00:00:00 2001 From: Mikl Kurkov Date: Wed, 25 Mar 2015 15:07:21 +0300 Subject: [PATCH] Fix crypto:erlint deprecation warning --- src/cutkey.erl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/cutkey.erl b/src/cutkey.erl index af292d7..7697a13 100644 --- a/src/cutkey.erl +++ b/src/cutkey.erl @@ -68,7 +68,10 @@ rsa(Bits, E, Opts) when is_integer(Bits), Bits > 0, E band 1 =:= 1 -> false -> erlang:error(badarg) end. -erlint(MPInts) -> [ crypto:erlint(X) || X <- MPInts ]. +erlint(MPInts) when is_list(MPInts) -> + [erlint(X) || X <- MPInts ]; +erlint(<>) -> + Int. -ifdef(TEST). @@ -81,7 +84,7 @@ bare_test_() -> [fun() -> {ok, MPInts} = cutkey:rsa(512, 65537, [{return, bare}]), 3 = length(MPInts), - Fun = fun(X) -> is_integer(crypto:erlint(X)) end, + Fun = fun(X) -> is_integer(erlint(X)) end, true = lists:all(Fun, MPInts) end, fun() -> @@ -97,7 +100,7 @@ full_test_() -> [fun() -> {ok, MPInts} = cutkey:rsa(512, 65537, [{return, full}]), 8 = length(MPInts), - Fun = fun(X) -> is_integer(crypto:erlint(X)) end, + Fun = fun(X) -> is_integer(erlint(X)) end, true = lists:all(Fun, MPInts) end, fun() ->