… | |
… | |
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 | |