anchor.diff:  get_option(Option, Options) ->
       {proplists:get_value(Option, Options), proplists:delete(Option, Options)}.
   
  +application_set_unless_env(App, Var, Value) ->
  +    Current = application:get_all_env(App),
  +    CurrentKeys = proplists:get_keys(Current),
  +    case lists:member(Var, CurrentKeys) of
  +        true ->
  +            ok;
  +        false ->
  +            application:set_env(App, Var, Value)
  +    end.
  +
   host_headers(Req) ->
       [ V || {V,_ReqState} <- [Req:get_header_value(H)
                                || H <- ["x-forwarded-host",
  
positive.code:       {undefined, _} -> {?MODULE, Options4};
        {PN, O5} -> {PN, O5}
      end,
      application:set_env(webmachine, dispatch_list, DispatchList),
      application:set_env(webmachine, error_handler, ErrorHandler),
      mochiweb_http:start([{name, PName}, {loop, fun loop/1} | Options5]).
  
  stop() ->
  
negative.code:         true ->
            case whereis(webmachine_perf_logger) of
              undefined ->
                application_set_unless_env(webmachine, enable_perf_logger, true),
                webmachine_sup:start_perf_logger(LogDir);
              _ ->
                ignore
  