From de0851734b242acbd50e7bb67a169efe0d412c8f Mon Sep 17 00:00:00 2001
From: Zandra <zandra@erlang.org>
Date: Tue, 24 May 2016 08:29:24 +0200
Subject: test_server_gl - Fix unmatched_return warnings

---
 lib/common_test/src/test_server_gl.erl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/common_test/src/test_server_gl.erl b/lib/common_test/src/test_server_gl.erl
index 333c8fc06e..7d6fe64b92 100644
--- a/lib/common_test/src/test_server_gl.erl
+++ b/lib/common_test/src/test_server_gl.erl
@@ -185,7 +185,7 @@ handle_info({capture,Cap0}, St) ->
 	  end,
     {noreply,St#st{capture=Cap}};
 handle_info({io_request,From,ReplyAs,Req}=IoReq, St) ->
-    try	io_req(Req, From, St) of
+    _ = try io_req(Req, From, St) of
 	passthrough ->
 	    group_leader() ! IoReq;
 	{EscapeHtml,Data} ->
@@ -197,7 +197,8 @@ handle_info({io_request,From,ReplyAs,Req}=IoReq, St) ->
 			#st{capture=none} ->
 			    ok;
 			#st{capture=CapturePid} ->
-			    CapturePid ! {captured,Data}
+			    CapturePid ! {captured,Data},
+			    ok
 		    end,
 		    case EscapeHtml andalso St#st.escape_chars of
 			true ->
-- 
cgit v1.2.3