| … | … | ||
|---|---|---|---|
| 34 | rcv $server, privmsg => sub { | 34 | rcv $server, privmsg => sub { |
| 35 | my ($nick, $msg) = @_; | 35 | my ($nick, $msg) = @_; |
| 36 | msg "$nick: $msg"; | 36 | msg "$nick: $msg"; |
| 37 | }; | 37 | }; |
| 38 | 38 | ||
| 39 | AnyEvent::MP::Global::register $server, "eg_chat_server"; | 39 | grp_reg eg_chat_server => $server; |
| 40 | 40 | ||
| 41 | warn "server ready.\n"; | 41 | warn "server ready.\n"; |
| 42 | 42 | ||
| 43 | AE::cv->recv; | 43 | AE::cv->recv; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |