--- deliantra/server/ext/dm-support.ext	2008/01/13 08:56:23	1.19
+++ deliantra/server/ext/dm-support.ext	2010/04/11 04:52:07	1.25
@@ -31,11 +31,13 @@
 ext::books::reload &
 ext::map_tags::reload &
 ext::map_world::reload &
-print JSON::XS->new->pretty->encode({cf::mallinfo})
+# ext::map_scheduler::loadall & # debugging only!
+while (EV::TIMEOUT & Coro::EV::timed_io_once \$fh, EV::READ, 1) { Coro::Debug::command "ps" } &
+({cf::mallinfo})
 EOF
    print $fh "\n> ";
 
-   my $iow; $iow = EV::io $fh, EV::READ, sub {
+   my $iow; $iow = AE::io $fh, 0, sub {
       if (defined (my $cmd = <$fh>)) {
          $cmd =~ s/\s+$//;
 
@@ -90,7 +92,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, Blocking => 0) {
-      $LISTENER = EV::io $listen, EV::READ, sub { tcp_serve $listen->accept };
+      $LISTENER = AE::io $listen, 0, sub { tcp_serve $listen->accept };
    }
 }