--- deliantra/server/ext/dm-support.ext	2010/04/12 17:13:36	1.27
+++ deliantra/server/ext/dm-support.ext	2012/11/11 02:38:10	1.37
@@ -22,17 +22,23 @@
 Useful commands (note the '&'):
 
 reload_perl &
+reload_sound &
 reload_config &
 reload_regions &
 reload_facedata &
+reload_exp_table &
+reload_materials &
 reload_treasures &
+reload_resources &
 reload_archetypes &
 ext::help::reload &
 ext::books::reload &
 ext::map_tags::reload &
 ext::map_world::reload &
+ext::player_env::reload &
+ext::map_scheduler::reload &
 # ext::map_scheduler::loadall & # debugging only!
-while (EV::TIMEOUT & Coro::EV::timed_io_once \$fh, EV::READ, 1) { Coro::Debug::command "ps" } &
+until (Coro::AnyEvent::readable \$fh, 1) { Coro::Debug::command "ps" } &
 ({mallinfo})
 ({objinfo})
 EOF
@@ -56,14 +62,13 @@
                # compile first, then execute, as Coro does not support switching in eval string
                my $cb = eval "sub { $cmd \n}";
 
-               my $t1 = Time::HiRes::time;
+               my $t1 = EV::time;
                my @res = $@ ? () : eval { $cb->() };
-               my $t2 = Time::HiRes::time;
+               my $t2 = EV::time;
 
                print "\n",
                      "command: '$cmd'\n",
                      "execution time: ", $t2 - $t1, "\n";
-               warn "evaluation error: $@" if $@;
                print "evaluation error: $@\n" if $@;
                print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res;
                print "\n> ";
@@ -97,4 +102,3 @@
    }
 }
 
-