From 0772a776aa2dc9553e81d62e8a8fd0d182137d4b Mon Sep 17 00:00:00 2001
From: Zandra <zandra@erlang.org>
Date: Tue, 17 May 2016 15:18:14 +0200
Subject: dbg_iserver - fix unmatched_return warnings

---
 lib/debugger/src/dbg_iserver.erl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'lib/debugger/src')

diff --git a/lib/debugger/src/dbg_iserver.erl b/lib/debugger/src/dbg_iserver.erl
index 0ad303d8d9..3561454685 100644
--- a/lib/debugger/src/dbg_iserver.erl
+++ b/lib/debugger/src/dbg_iserver.erl
@@ -72,17 +72,17 @@ cast(Int, Request) ->
     gen_server:cast(Int, Request).
 
 safe_call(Request) ->
-    ensure_started(),
+    {ok, _} = ensure_started(),
     call(Request).
 
 safe_cast(Request) ->
-    ensure_started(),
+    {ok, _} = ensure_started(),
     cast(Request).
 
 ensure_started() ->
     case whereis(?MODULE) of
 	undefined -> start();
-	_Pid -> ignore
+	Pid -> {ok, Pid}
     end.
 
 %%--Module database---------------------------------------------------
@@ -402,8 +402,10 @@ handle_cast({set_status, Meta, Status, Info}, State) ->
     send_all(subscriber, {new_status, Proc#proc.pid, Status, Info}, State),
     if
 	Status =:= break ->
-	    auto_attach(break, State#state.auto, Proc);
-	true -> ignore
+	    _ = auto_attach(break, State#state.auto, Proc),
+	    ok;
+	true ->
+	    ok
     end,
     Proc2 = Proc#proc{status=Status, info=Info},
     {noreply, State#state{procs=lists:keyreplace(Meta, #proc.meta,
@@ -470,7 +472,7 @@ handle_info({'EXIT',Who,Why}, State) ->
 				      [self(),AttPid,Pid,Why,ExitInfo]);
 		       undefined ->
 			   %% Otherwise, auto attach if necessary
-			   auto_attach(exit, State#state.auto, Pid),
+			   _ = auto_attach(exit, State#state.auto, Pid),
 			   Who
 		   end,
 	    send_all(subscriber, {new_status,Pid,exit,Why}, State),
@@ -583,7 +585,8 @@ send_all(Pids, Msg) ->
     lists:foreach(fun(Pid) -> send(Pid, Msg) end, Pids).
 
 send(Pid, Msg) ->
-    Pid ! {int, Msg}.
+    Pid ! {int, Msg},
+    ok.
 
 get_proc({Type, Pid}, Procs) ->
     Index = case Type of
-- 
cgit v1.2.3