| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | use Coro::Debug; | 3 | use Coro::Debug; |
| 4 | use IO::Socket; | 4 | use IO::Socket; |
| 5 | use Storable qw/nfreeze thaw/; | ||
| 6 | 5 | ||
| 7 | my %global; # for use by eval'ed commands | 6 | my %global; # for use by eval'ed commands |
| 8 | 7 | ||
| 9 | sub tcp_serve($) { | 8 | sub tcp_serve($) { |
| 10 | my ($fh) = @_; | 9 | my ($fh) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |