anchor.diff:  handle_info({'EXIT', _, Reason}, State) ->
       {stop, Reason, State};
   
  -handle_info({Port, {data, [1|Str]}}, State) ->
  +handle_info({_Port, {data, [1|Str]}}, State) ->
       error_logger:format("fdsrv: ~s~n", [Str]),
       {noreply, State}.
   
   %%----------------------------------------------------------------------
   %%----------------------------------------------------------------------
  -terminate(Reason, State) ->
  +terminate(_Reason, State) ->
       #state{dport = DPort, sport = SPort} = State,
       DPort ! {self(), close},
       SPort ! {self(), close}.
  
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: 	    {reply, {error, "Bad socket type"}, State}
      end;
  
  handle_call(stop, _From, State) ->
      {stop, normal, ok, State}.
  
  %%----------------------------------------------------------------------
  