anchor.diff:      Socket = socket(Arg),
       {ok, {IP, _Port}} =
           case Socket of
  -            S when is_tuple(S) andalso element(1, S) =:= sslsocket ->
  -                ssl:peername(Socket);
  +            {ssl, S} ->
  +                ssl:peername(S);
               _ ->
                   inet:peername(Socket)
           end,
  
positive.code: 
  peer_port(Arg) -> 
      Socket = socket(Arg),
      {ok, {_IP, Port}} = inet:peername(Socket),
      Port.
  
  headers(Arg) ->
  
negative.code:     end.
  
  protocol_version(Arg) ->
    yaws_api:http_request_version(yaws_api:arg_req(Arg)).
  