Permalink
Browse files

git-svn-id: https://erlyaws.svn.sourceforge.net/svnroot/erlyaws/trunk…

…/yaws@1387 9fbdc01b-0d2c-0410-bfb7-fb27d70d8b52
  • Loading branch information...
1 parent dc41472 commit 586e861009513c79e82b2974146fa76db8e104b1 @klacke committed Feb 12, 2009
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/yaws_server.erl
View
@@ -390,7 +390,7 @@ handle_cast(_Msg, State) ->
%% {noreply, State, Timeout} |
%% {stop, Reason, State} (terminate/2 is called)
%%----------------------------------------------------------------------
-handle_info({'EXIT', Pid, certchanged}, State) ->
+handle_info({Pid, certchanged}, State) ->
{noreply, State#state{pairs = lists:keydelete(Pid, 1, State#state.pairs)}};
handle_info({'EXIT', Pid, Reason}, State) ->
case lists:keysearch(Pid, 1, State#state.pairs) of
@@ -684,7 +684,9 @@ gserv_loop(GS, Ready, Rnum, Last) ->
Ls = Ls0 -- [get(top)],
foreach(fun(X) -> unlink(X), exit(X, shutdown) end, Ls),
From ! {self(), yes},
- exit(certchanged)
+ unlink(get(top)),
+ get(top) ! {self(), certchanged},
+ exit(normal)
end;
{update_gconf, GC} ->
stop_ready(Ready, Last),

0 comments on commit 586e861

Please sign in to comment.