--- deliantra/server/ext/dm-support.ext	2007/11/14 08:09:46	1.16
+++ deliantra/server/ext/dm-support.ext	2007/11/24 05:58:40	1.17
@@ -89,7 +89,7 @@
 
 # now a shell listening on a tcp-port - let the firewall decide access rights
 if ($cf::CFG{perl_shell}) {
-   if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1) {
+   if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) {
       $LISTENER = EV::io $listen, EV::READ, sub { tcp_serve $listen->accept };
    }
 }