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