anchor.diff:  	       "~n   Expected:    ~p bytes"
   	       "~n   Received:    ~p bytes"
   	       "~n   Socket Info: ~p",
  -	       [N, BytesLeft, byte_size(Bin),
  -		if is_port(Socket) -> erlang:port_info(Socket);
  -		   true -> gen_tcp_socket:info(Socket)
  -		end]),
  +	       [N, BytesLeft, byte_size(Bin), inet:info(Socket)]),
   	    {error, {unexpected_data, BytesLeft, byte_size(Bin)}};
   	{error, timeout} ->
   	    ?P("[server] got receive timeout when expecting more data:"
  -	       "~n      Socket Info: ~p",
  -	       [if is_port(Socket) -> erlang:port_info(Socket);
  -		   true -> gen_tcp_socket:info(Socket)
  -		end]),
  +	       "~n      Socket Info: ~p", [inet:info(Socket)]),
   	    {error, timeout}
       end.
   
  
positive.code:     ?P("[ctrl] create payload (BinSz: ~w)...", [BinSize]),
      Data = lists:duplicate(BinNr, <<1:(BinSize*8)>>),
      ?P("[ctrl] socket info prior to start sending: "
         "~n      ~p",
         [if is_port(Socket) -> erlang:port_info(Socket);
  	   true -> gen_tcp_socket:info(Socket)
  	end]),
      Ctrl   = self(),
      Client = spawn_link(fun() -> otp_7816_send_data(Ctrl, Socket, Data) end),
      SentBytes =
  
negative.code:      zombie_sockets,
       otp_7816,
       otp_8102, otp_9389,
       otp_12242, delay_send_error,
       bidirectional_traffic
      ].
  
  
  