| … | … | ||
|---|---|---|---|
| 14 | $| = 1; | 14 | $| = 1; |
| 15 | 15 | ||
| 16 | my ($client, $server); | 16 | my ($client, $server); |
| 17 | 17 | ||
| 18 | sub server_connect { | 18 | sub server_connect { |
| 19 | my $servernodes = AnyEvent::MP::Global::find "eg_chat_server" | 19 | my $servernodes = grp_get "eg_chat_server" |
| 20 | or return after 1, \&server_connect; | 20 | or return after 1, \&server_connect; |
| 21 | 21 | ||
| 22 | print "\rconnecting...\n"; | 22 | print "\rconnecting...\n"; |
| 23 | 23 | ||
| 24 | $client = port { print "\r \r@_\n> " }; | 24 | $client = port { print "\r \r@_\n> " }; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |