| … | … | ||
|---|---|---|---|
| 96 | if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) { | 96 | if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) { |
| 97 | $LISTENER = AE::io $listen, 0, sub { tcp_serve $listen->accept }; | 97 | $LISTENER = AE::io $listen, 0, sub { tcp_serve $listen->accept }; |
| 98 | } | 98 | } |
| 99 | } | 99 | } |
| 100 | 100 | ||
| 101 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |