Skip to content
Browse files

Tweaked to build on 2.8.2 with no warnings.

  • Loading branch information...
1 parent 4ff0e66 commit 3bd8a5f8a377f45ff234cb9c0da677d23a30f0e5 @jbrisbin committed Apr 30, 2012
Showing with 6 additions and 6 deletions.
  1. +2 −2 rebar.config
  2. BIN src/mirrored_supervisor.beam
  3. +1 −1 src/mirrored_supervisor.erl
  4. +3 −3 src/supervisor2.erl
View
4 rebar.config
@@ -14,6 +14,6 @@
warn_unused_function,
warn_deprecated_function,
warn_obsolete_guard,
- warn_unused_import
-% warnings_as_errors
+ warn_unused_import,
+ warnings_as_errors
]}.
View
BIN src/mirrored_supervisor.beam
Binary file not shown.
View
2 src/mirrored_supervisor.erl
@@ -121,7 +121,7 @@
which_children/1, count_children/1, check_childspecs/1]).
-behaviour(?GEN_SERVER).
--behaviour(?SUPERVISOR).
+% -behaviour(?SUPERVISOR).
-export([init/1, handle_call/3, handle_info/2, terminate/2, code_change/3,
handle_cast/2]).
View
6 src/supervisor2.erl
@@ -815,7 +815,7 @@ terminate_simple_children(Child, Dynamics, SupName) ->
TRef = timeout_start(Child, TimeoutMsg),
{Replies, Timedout} =
lists:foldl(
- fun (_Pid, {Replies, Timedout}) ->
+ fun (Pid, {Replies, Timedout}) ->
{Reply, Timedout1} =
receive
TimeoutMsg ->
@@ -826,8 +826,8 @@ terminate_simple_children(Child, Dynamics, SupName) ->
end;
{'DOWN', _MRef, process, Pid, Reason} ->
{child_res(Child, Reason, Timedout), Timedout};
- {'EXIT', Pid, Reason} ->
- receive {'DOWN', _MRef, process, Pid, _} ->
+ {'EXIT', ChildPid, Reason} ->
+ receive {'DOWN', _MRef, process, ChildPid, _} ->
{{error, Reason}, Timedout}
end
end,

0 comments on commit 3bd8a5f

Please sign in to comment.
Something went wrong with that request. Please try again.