… | … | ||
---|---|---|---|
68 | sub addme { | 68 | sub addme { |
69 | my ($ns) = @_; | 69 | my ($ns) = @_; |
70 | 70 | ||
71 | $ns->destroy if $ns->pl; | 71 | $ns->destroy if $ns->pl; |
72 | 72 | ||
73 | $ns->coro (sub { | 73 | $ns->async (sub { |
74 | my ($user, $pass); | 74 | my ($user, $pass); |
75 | 75 | ||
76 | $ns->send_packet ("addme_success"); | 76 | $ns->send_packet ("addme_success"); |
77 | 77 | ||
78 | for (;;) { | 78 | for (;;) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |