| … | |
… | |
| 84 | }, sub { |
84 | }, sub { |
| 85 | $server_port->send ($_[2]); |
85 | $server_port->send ($_[2]); |
| 86 | }; |
86 | }; |
| 87 | |
87 | |
| 88 | my $hd; $hd = new AnyEvent::Handle |
88 | my $hd; $hd = new AnyEvent::Handle |
| 89 | connect => ["localhost", $server_port->recv], |
89 | connect => ["127.0.0.1", $server_port->recv], |
| 90 | tls => "connect", |
90 | tls => "connect", |
| 91 | tls_ctx => $ctx, |
91 | tls_ctx => $ctx, |
| 92 | timeout => 8, |
92 | timeout => 8, |
| 93 | on_connect => sub { |
93 | on_connect => sub { |
| 94 | ok (1, "client_connect $mode"); |
94 | ok (1, "client_connect $mode"); |
