anchor.diff:  	    {reply, {error, "Bad socket type"}, State}
       end;
   
  -handle_call(stop, From, State) ->
  +handle_call(stop, _From, State) ->
       {stop, normal, ok, State}.
   
   %%----------------------------------------------------------------------
  
positive.code: %%----------------------------------------------------------------------
  %%----------------------------------------------------------------------
  
  handle_call({bind_socket, Type, Spec}, From, State) ->
      #state{dport = DPort, sport = SPort} = State,
      case lists:member(Type, [tcp, udp]) of
  	true ->
  
negative.code: handle_info({'EXIT', _, Reason}, State) ->
      {stop, Reason, State};
  
  handle_info({_Port, {data, [1|Str]}}, State) ->
      error_logger:format("fdsrv: ~s~n", [Str]),
      {noreply, State}.
  
  %%----------------------------------------------------------------------
  %%----------------------------------------------------------------------
  terminate(_Reason, State) ->
      #state{dport = DPort, sport = SPort} = State,
      DPort ! {self(), close},
      SPort ! {self(), close}.
  