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