--- deliantra/server/ext/tcp.ext	2010/01/31 03:46:20	1.14
+++ deliantra/server/ext/tcp.ext	2010/03/16 20:37:54	1.15
@@ -8,12 +8,13 @@
 use AnyEvent::Socket;
 
 our $BIND = $cf::CFG{bind_addresses} || [[undef, 13327]];
+our @LISTENERS;
 
 for (@$BIND) {
    my ($host, $port) = @$_;
    warn "listening on ", (format_hostport $host, $port), "\n";
 
-   tcp_server $host, $port, sub {
+   push @LISTENERS, tcp_server $host, $port, sub {
       my ($fh, $host, $port) = @_
          or return;