anchor.diff:  
   lport(gen_tcp, Sock) ->
       inet:port(Sock);
  +lport(ssl, Sock) ->
  +    case ssl:sockname(Sock) of
  +        {ok, {_Addr, PortNr}} ->
  +            {ok, PortNr};
  +        {error, _} = No ->
  +            No
  +    end;
   lport(M, Sock) ->
       M:port(Sock).
  
positive.code: %% # code_change/3
  %% ---------------------------------------------------------------------------
  
  code_change(_, State, _) ->
      {ok, State}.
  
  
negative.code: 
  setopts(gen_tcp, Sock, Opts) ->
      inet:setopts(Sock, Opts);
  setopts(ssl, Sock, Opts) ->
      ssl:setopts(Sock, Opts);
  setopts(M, Sock, Opts) ->
      M:setopts(Sock, Opts).
  
  