… | … | ||
---|---|---|---|
24 | 24 | ||
25 | $clients{$client} = $client; | 25 | $clients{$client} = $client; |
26 | 26 | ||
27 | msg "$name (joins)"; | 27 | msg "$name (joins)"; |
28 | 28 | ||
29 | rcv $SELF, sub { | 29 | rcv $SELF, sub { msg "$name: $_[0]" }; |
30 | msg "$name: $_[0]"; | ||
31 | 0 | ||
32 | }; | ||
33 | } | 30 | } |
34 | 31 | ||
35 | warn "server ready.\n"; | 32 | warn "server ready.\n"; |
36 | 33 | ||
37 | AE::cv->recv; | 34 | AE::cv->recv; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |