… | … | ||
---|---|---|---|
25 | my $fd = fileno $fh; | 25 | my $fd = fileno $fh; |
26 | my $host = inet_ntoa +(sockaddr_in $peername)[1]; | 26 | my $host = inet_ntoa +(sockaddr_in $peername)[1]; |
27 | 27 | ||
28 | warn "new connection from $host\n"; | 28 | warn "new connection from $host\n"; |
29 | 29 | ||
30 | cf::add_client $fd, $host; | 30 | cf::client::create $fd, $host; |
31 | }); | 31 | }); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |