--- deliantra/server/ext/dm-support.ext	2007/11/24 05:58:40	1.17
+++ deliantra/server/ext/dm-support.ext	2008/12/16 23:25:24	1.20
@@ -31,7 +31,7 @@
 ext::books::reload &
 ext::map_tags::reload &
 ext::map_world::reload &
-print JSON::XS->new->pretty->encode({cf::mallinfo})
+\{cf::mallinfo})
 EOF
    print $fh "\n> ";
 
@@ -50,8 +50,8 @@
                package cf;
                select $fh;
 
-               # compile first, the execute, as Coro does not support switching in eval string
-               my $cb = eval "sub { $cmd }";
+               # 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 @res = $@ ? () : eval { $cb->() };