Merge branch 'peterdmv/ssl/doc-types-and-specs/OTP-15746'

* peterdmv/ssl/doc-types-and-specs/OTP-15746:
  ssl: Add type specs for http_packet()
  ssl: Fix type specs of ssl_internal.hrl
  ssl: Fix type specs of internal handshake functions
  ssl: Fix dialyzer warnings
  eldap: Fix dialyzer warnings
  ssl: Fix missing anchor warning
  public_key: Accept digest types 'sha1' and 'sha'
  inet: Document type inet:stat_option()
  ssl: Changed function specs and ssl.xml
  ssl: Update standards_compliance.xml

OTP-15775
OTP-15776
OTP-15777

Change-Id: Ibe8e8263d6557eaa40cc0681a7ce3fcb373a4120

1 files changed, 15 insertions, 15 deletions

diff --git a/lib/eldap/src/eldap.erl b/lib/eldap/src/eldap.erl
index 6497922852..9b7e254dfe 100644
--- a/lib/eldap/src/eldap.erl
+++ b/lib/eldap/src/eldap.erl
@@ -957,20 +957,20 @@ do_modify_dn_0(Data, Entry, NewRDN, DelOldRDN, NewSup, Controls) ->
 do_unbind(Data) ->
     Req = "",
     log2(Data, "unbind request = ~p (has no reply)~n", [Req]),
-    case Data#eldap.using_tls of
-	true ->
-            send_request(Data#eldap.fd, Data, Data#eldap.id, {unbindRequest, Req}),
-            ssl:close(Data#eldap.fd);
-	false ->
-            OldTrapExit = process_flag(trap_exit, true),
-            catch send_request(Data#eldap.fd, Data, Data#eldap.id, {unbindRequest, Req}),
-            catch gen_tcp:close(Data#eldap.fd),
-            receive
-                {'EXIT', _From, _Reason} -> ok
-            after 0 -> ok
-            end,
-            process_flag(trap_exit, OldTrapExit)
-    end,
+    _ = case Data#eldap.using_tls of
+            true ->
+                send_request(Data#eldap.fd, Data, Data#eldap.id, {unbindRequest, Req}),
+                ssl:close(Data#eldap.fd);
+            false ->
+                OldTrapExit = process_flag(trap_exit, true),
+                catch send_request(Data#eldap.fd, Data, Data#eldap.id, {unbindRequest, Req}),
+                catch gen_tcp:close(Data#eldap.fd),
+                receive
+                    {'EXIT', _From, _Reason} -> ok
+                after 0 -> ok
+                end,
+                process_flag(trap_exit, OldTrapExit)
+        end,
     {no_reply, Data#eldap{binddn = (#eldap{})#eldap.binddn,
 			  passwd = (#eldap{})#eldap.passwd,
 			  fd     = (#eldap{})#eldap.fd,
@@ -1130,7 +1130,7 @@ ldap_closed_p(Data, Emsg) when Data#eldap.using_tls == true ->
     %% Check if the SSL socket seems to be alive or not
     case catch ssl:sockname(Data#eldap.fd) of
 	{error, _} ->
-	    ssl:close(Data#eldap.fd),
+	    _ = ssl:close(Data#eldap.fd),
 	    {error, ldap_closed};
 	{ok, _} ->
 	    {error, Emsg};