… | |
… | |
161 | my (undef, $iaddr) = unpack_sockaddr_in $peername |
161 | my (undef, $iaddr) = unpack_sockaddr_in $peername |
162 | or $self->err(500, "unable to decode peername"); |
162 | or $self->err(500, "unable to decode peername"); |
163 | |
163 | |
164 | $self->{remote_addr} = |
164 | $self->{remote_addr} = |
165 | $self->{remote_id} = inet_ntoa $iaddr; |
165 | $self->{remote_id} = inet_ntoa $iaddr; |
|
|
166 | |
166 | $self->{time} = $::NOW; |
167 | $self->{time} = $::NOW; |
167 | |
168 | |
168 | weaken ($Coro::current->{conn} = $self); |
169 | weaken ($Coro::current->{conn} = $self); |
169 | |
170 | |
170 | $::conns++; |
171 | $::conns++; |