gistfile1.txt

drop_cache(Db) ->
    Cmd = couch_config:get("couchdb", "bin_dir") ++ "/drop_cache " ++
        Db#db.filepath,
    Port = erlang:open_port({spawn, Cmd}, [exit_status]),
    ?LOG_DEBUG("waiting for drop_cache exit while compacting ~p", [Db#db.name]),
    receive
    {Port, {exit_status, 0}} ->
        ok;
    {Port, {exit_status, Status}} ->
        ?LOG_ERROR("drop_cache on ~s exited with ~p", [Db#db.filepath, Status]),
        ok
    end.