handle gproc reg expections

tsloughter · Jul 10, 2012 · 6369558 · 6369558
1 parent 3f0838f
commit 6369558
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/lib/dwight_core/src/dwight_core_req_server.erl b/lib/dwight_core/src/dwight_core_req_server.erl
@@ -51,8 +51,14 @@ close(Pid) ->
 init([Host, Port]) ->
     {ok, Client} = cowboy_client:init([]),
     {ok, Client2} = cowboy_client:connect(cowboy_tcp_transport, Host, Port, Client),
-    gproc:reg({n, l, {Host, Port}}, self()),
-    {ok, #state{key={Host, Port}, client=Client2}}.
+
+    try
+        gproc:reg({n, l, {Host, Port}}, self()),
+        {ok, #state{key={Host, Port}, client=Client2}}
+    catch
+        error:badarg ->
+            ignore
+    end.
 
 %%--------------------------------------------------------------------