diff options
| author | Siri Hansen <[email protected]> | 2013-04-25 16:14:10 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-05-06 12:14:13 +0200 |
| commit | f52452309cf68da898a1768eb6e8b6767e602bc7 (patch) | |
| tree | c24a32ecedfd7f4baaa3c8f4e9e474a7dbef738b /lib/kernel/src/erl_boot_server.erl | |
| parent | 88eea0e9a22099a1425553381cfb72f646cb2abf (diff) | |
| download | otp-f52452309cf68da898a1768eb6e8b6767e602bc7.tar.gz otp-f52452309cf68da898a1768eb6e8b6767e602bc7.tar.bz2 otp-f52452309cf68da898a1768eb6e8b6767e602bc7.zip | |
Fix unmatched_return warnings in kernel
Diffstat (limited to 'lib/kernel/src/erl_boot_server.erl')
| -rw-r--r-- | lib/kernel/src/erl_boot_server.erl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/kernel/src/erl_boot_server.erl b/lib/kernel/src/erl_boot_server.erl index 33f1b96f8d..9a49655a9f 100644 --- a/lib/kernel/src/erl_boot_server.erl +++ b/lib/kernel/src/erl_boot_server.erl @@ -361,7 +361,14 @@ handle_command(S, PS, Msg) -> end. send_file_result(S, Cmd, Result) -> - gen_tcp:send(S, term_to_binary({Cmd,Result})). - -send_result(S, Result) -> - gen_tcp:send(S, term_to_binary(Result)). + send_result(S, {Cmd,Result}). + +send_result(S, Term) -> + case gen_tcp:send(S, term_to_binary(Term)) of + ok -> + ok; + Error -> + error_logger:error_msg("** Boot server could not send result " + "to socket: ~w** ~n", [Error]), + ok + end. |