[thrift] Erlang thrift_sup will exit if it can't bind to the given address
Summary: before it would complain and not exit. that's not right.
Reviewed By: eletuchy
Test Plan: DEATH ENSUES
Revert Plan: sounds reasonable
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665490 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/erl/src/thrift_sup.erl b/lib/erl/src/thrift_sup.erl
index ab3f80e..8be57df 100644
--- a/lib/erl/src/thrift_sup.erl
+++ b/lib/erl/src/thrift_sup.erl
@@ -36,5 +36,10 @@
thrift_start_link(SF = tErlServer, Port, Hnd, Pr, ST, TF, PF) ->
Args = [Port, Hnd, Pr, ST, TF:new(), PF:new()],
Pid = oop:start_new(SF, Args),
- ?R0(Pid, effectful_serve),
+ case ?R0(Pid, effectful_serve) of
+ ok ->
+ ok;
+ {error, eaddrinuse} ->
+ exit(eaddrinuse)
+ end,
{ok, Pid}.