anchor.diff:  %%           none
   %%           URL = sipurl record()
   %%--------------------------------------------------------------------
  -lookupregexproute(User) ->
  +lookupregexproute(Input) ->
       Routes = database_regexproute:list(),
       Sortedroutes = lists:sort(fun (Elem1, Elem2) ->
   				      Prio1 = lists:keysearch(priority, 1, Elem1#regexproute.flags),
  
positive.code:     Unsuitable_URL2 = sipurl:new([{proto, "sips"}, {host, "sips1.example.org"}]),
      Unsuitable_URL3 = sipurl:new([{proto, "sip"}, {host, "sip2.example.org"}]),
  
      io:format("test: remove_unsuitable_locations/2 - 1~n"),
      %% test with non-SIPS URI
      [Unsuitable_URL1, Unsuitable_URL2, Unsuitable_URL3] =
  	remove_unsuitable_locations(Unsuitable_URL1, [Unsuitable_URL1, Unsuitable_URL2, Unsuitable_URL3]),
  
      io:format("test: remove_unsuitable_locations/2 - 2~n"),
      %% test with SIPS URI
      [Unsuitable_URL2] =
  	remove_unsuitable_locations(Unsuitable_URL2, [Unsuitable_URL1, Unsuitable_URL2, Unsuitable_URL3]),
  
      ok.
  
negative.code: %%--------------------------------------------------------------------
  %% Function: remove_unsuitable_locations(URL, Locations)
  %%           URL      = sipurl record(), Request-URI of request
  %%           Location = list() of siplocationdb_e record()
  %% Descrip.: Apply local policy for what locations are good to use for
  %%           a particular Request-URI. The default action we do here
  %%           is to remove non-SIPS locations if the Request-URI is
  %%           SIPS, unless we are configured not to.
  %% Returns : list() of siplocationdb_e record()
  %%--------------------------------------------------------------------
  remove_unsuitable_locations(#sipurl{proto="sips"}, Locations) when is_list(Locations) ->
      case sipserver:get_env(ssl_require_sips_registration, true) of
  