| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | # check client version and string for old clients and possibly issue warnings for them | 3 | # check client version and string for old clients and possibly issue warnings for them |
| 4 | 4 | ||
| 5 | cf::attach_to_players | 5 | cf::player->attach ( |
| 6 | on_login => sub { | 6 | on_login => sub { |
| 7 | my ($pl) = @_; | 7 | my ($pl) = @_; |
| 8 | 8 | ||
| 9 | my $client = $pl->socket->version; | 9 | my $client = $pl->socket->version; |
| 10 | 10 | ||
| … | … | ||
| 44 | Your client ($client) is known to be buggy. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems. | 44 | Your client ($client) is known to be buggy. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems. |
| 45 | 45 | ||
| 46 | EOF | 46 | EOF |
| 47 | } | 47 | } |
| 48 | }, | 48 | }, |
| 49 | ; | 49 | ); |
| 50 | 50 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |