--- deliantra/server/ext/dm-support.ext	2007/09/30 22:33:52	1.12
+++ deliantra/server/ext/dm-support.ext	2007/10/12 19:13:26	1.14
@@ -2,7 +2,6 @@
 
 use Coro::Debug;
 use IO::Socket;
-use Storable qw/nfreeze thaw/;
 
 my %global; # for use by eval'ed commands
 
@@ -39,11 +38,12 @@
       if (defined (my $cmd = <$fh>)) {
          $cmd =~ s/\s+$//;
 
-         select $fh;
          if ($cmd =~ /^\s*exit\b/i) {
-            print "will not exit() server.\n";
+            print $fh "will not exit() server.\n";
          } elsif ($cmd =~ s/^coro\s+// or $cmd =~ /^(?:ps|bt\s)/) {
+            select $fh;
             Coro::Debug::command $cmd;
+            select STDOUT;
          } else {
             my $sub = sub {
                package cf;
@@ -77,8 +77,7 @@
             }
          }
 
-         print "\n> ";
-         select STDOUT;
+         print $fh "\n> ";
       } else {
          $_[0]->w->cancel;
       }