| … | |
… | |
| 162 | ; |
162 | ; |
| 163 | |
163 | |
| 164 | my $greeting_kv = $self->{local_greeting} ||= {}; |
164 | my $greeting_kv = $self->{local_greeting} ||= {}; |
| 165 | |
165 | |
| 166 | $greeting_kv->{tls} = "1.0" if $self->{tls_ctx}; |
166 | $greeting_kv->{tls} = "1.0" if $self->{tls_ctx}; |
| 167 | $greeting_kv->{provider} = "AE-$AnyEvent::MP::Kernel::VERSION"; |
167 | $greeting_kv->{provider} = "AE-$AnyEvent::MP::VERSION"; # MP.pm might not be loaded, so best effort :( |
| 168 | $greeting_kv->{peeraddr} = AnyEvent::Socket::format_hostport $self->{peerhost}, $self->{peerport}; |
168 | $greeting_kv->{peeraddr} = AnyEvent::Socket::format_hostport $self->{peerhost}, $self->{peerport}; |
| 169 | $greeting_kv->{timeout} = $self->{timeout}; |
169 | $greeting_kv->{timeout} = $self->{timeout}; |
| 170 | |
170 | |
| 171 | my $protocol = $self->{protocol} || "aemp"; |
171 | my $protocol = $self->{protocol} || "aemp"; |
| 172 | |
172 | |
