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 |