--- deliantra/server/ext/metaserver.ext	2007/01/21 21:28:27	1.2
+++ deliantra/server/ext/metaserver.ext	2007/01/24 13:59:28	1.3
@@ -2,7 +2,7 @@
 
 # metaserver reports
 
-use IO::Socket::INET;
+use Coro::Socket;
 
 $cf::CFG{metaserver_comment}
    or return;
@@ -11,9 +11,10 @@
    reentrant => 0,
    after     => 5,
    interval  => 299,
+   hard      => 1,
    data      => cf::WF_AUTOCANCEL,
-   cb        => sub {
-      my $socket = new IO::Socket::INET
+   cb        => Coro::unblock_sub {
+      my $socket = new Coro::Socket
          Proto => 'udp',
          PeerAddr => $cf::CFG{metaserver_metaserver},
          LocalAddr => $cf::CFG{metaserver_serveraddr}