couchdb-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dam...@apache.org
Subject svn commit: r930365 - /couchdb/trunk/src/couchdb/couch_server.erl
Date Fri, 02 Apr 2010 20:01:17 GMT
Author: damien
Date: Fri Apr  2 20:01:17 2010
New Revision: 930365

URL: http://svn.apache.org/viewvc?rev=930365&view=rev
Log:
change couch_server calls to have infinity timeout, because it might have to wait for disk
io.

Modified:
    couchdb/trunk/src/couchdb/couch_server.erl

Modified: couchdb/trunk/src/couchdb/couch_server.erl
URL: http://svn.apache.org/viewvc/couchdb/trunk/src/couchdb/couch_server.erl?rev=930365&r1=930364&r2=930365&view=diff
==============================================================================
--- couchdb/trunk/src/couchdb/couch_server.erl (original)
+++ couchdb/trunk/src/couchdb/couch_server.erl Fri Apr  2 20:01:17 2010
@@ -51,7 +51,7 @@ sup_start_link() ->
     gen_server:start_link({local, couch_server}, couch_server, [], []).
 
 open(DbName, Options) ->
-    case gen_server:call(couch_server, {open, DbName, Options}) of
+    case gen_server:call(couch_server, {open, DbName, Options}, infinity) of
     {ok, Db} ->
         Ctx = proplists:get_value(user_ctx, Options, #user_ctx{}),
         {ok, Db#db{user_ctx=Ctx}};
@@ -60,7 +60,7 @@ open(DbName, Options) ->
     end.
 
 create(DbName, Options) ->
-    case gen_server:call(couch_server, {create, DbName, Options}) of
+    case gen_server:call(couch_server, {create, DbName, Options}, infinity) of
     {ok, Db} ->
         Ctx = proplists:get_value(user_ctx, Options, #user_ctx{}),
         {ok, Db#db{user_ctx=Ctx}};
@@ -69,7 +69,7 @@ create(DbName, Options) ->
     end.
 
 delete(DbName, Options) ->
-    gen_server:call(couch_server, {delete, DbName, Options}).
+    gen_server:call(couch_server, {delete, DbName, Options}, infinity).
 
 check_dbname(#server{dbname_regexp=RegExp}, DbName) ->
     case re:run(DbName, RegExp, [{capture, none}]) of



Mime
View raw message