anchor.diff:      end.
   
   
  -get_port_info(Id) ->
  -    PortInfo = 
  -	case (catch erlang:port_info(Id)) of
  -	    PI when is_list(PI) ->
  -		[{port_info, PI}];
  -	    _ ->
  -		[]
  -	end,
  -    PortStatus = 
  -	case (catch prim_inet:getstatus(Id)) of
  -	    {ok, PS} ->
  -		[{port_status, PS}];
  -	    _ ->
  -		[]
  -	end,
  -    PortAct = 
  -	case (catch inet:getopts(Id, [active])) of
  -	    {ok, PA} ->
  -		[{port_act, PA}];
  -	    _ ->
  -		[]
  -	end,
  -    PortStats = 
  -	case (catch inet:getstat(Id)) of
  -	    {ok, Stat} ->
  -		[{port_stats, Stat}];
  -	    _ ->
  -		[]
  -	end,
  +get_socket_info(Id) when is_port(Id) ->
  +    Info = inet:info(Id),
  +
       IfList = 
   	case (catch inet:getif(Id)) of
   	    {ok, IFs} ->
  
positive.code: 	    _ ->
  		[]
  	end,
      BufSz = 
  	case (catch inet:getopts(Id, [recbuf, sndbuf, buffer])) of
  	    {ok, Sz} ->
  
negative.code:     ?vdebug("Log: ~w", [Log]),
  
      {ok, DomainAddresses} = snmpm_config:system_info(transports),
      ?vdebug("DomainAddresses: ~w", [DomainAddresses]),
      CommonSocketOpts = common_socket_opts(Opts),
      BindTo = get_opt(Opts, bind_to, false),
      InetBackend = case get_opt(Opts, inet_backend, use_default) of
                        use_default -> [];
                        IB          -> [{inet_backend, IB}]
                    end,
      case
  	[begin
  	     {IpPort, SocketOpts} =
  		 socket_params(Domain, Address, BindTo, CommonSocketOpts),
               %% The 'inet-backend' option has to be first,
               %% so we might as well add it last.
  	     Socket = socket_open(IpPort, InetBackend ++ SocketOpts),
               ?vtrace("socket created: "
                       "~n      Ip Port:     ~p"
                       "~n      Socket Opts: ~p"
                       "~n      Socket:      ~p", [IpPort, SocketOpts, Socket]),
  	     #transport{socket       = Socket,
                          port_info    = IpPort,
                          opts         = SocketOpts,
                          inet_backend = InetBackend,
                          domain       = Domain}
  	 end || {Domain, Address} <- DomainAddresses]
      of
  	[] ->
  