diff options
Diffstat (limited to 'lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl')
| -rw-r--r-- | lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl b/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl index 002d09fc74..98554ed805 100644 --- a/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl +++ b/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl @@ -736,6 +736,15 @@ dist_cntrlr_output_loop(DHandle, Socket) -> end, dist_cntrlr_output_loop(DHandle, Socket); + {send, From, Ref, Data} -> + %% This is for testing only! + %% + %% Needed by some OTP distribution + %% test suites... + sock_send(Socket, Data), + From ! {Ref, ok}, + dist_cntrlr_output_loop(DHandle, Socket); + _ -> %% Drop garbage message... dist_cntrlr_output_loop(DHandle, Socket) |