| … | … | ||
|---|---|---|---|
| 4 | 4 | ||
| 5 | cf::attach_to_players | 5 | cf::attach_to_players |
| 6 | on_login => sub { | 6 | on_login => sub { |
| 7 | my ($pl) = @_; | 7 | my ($pl) = @_; |
| 8 | 8 | ||
| 9 | my $client = $pl->socket->client; | 9 | my $client = $pl->socket->version; |
| 10 | 10 | ||
| 11 | my $is_cf = $client =~ /^(?:GTK|X11) (?:Unix|Win32) Client ([.0-9]+)/ | 11 | my $is_cf = $client =~ /^(?:GTK|X11) (?:Unix|Win32) Client ([.0-9]+)/ |
| 12 | ? join "", map chr, split /\./, $1 | 12 | ? join "", map chr, split /\./, $1 |
| 13 | : undef; | 13 | : undef; |
| 14 | 14 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |