--- deliantra/server/ext/dm-support.ext	2007/01/09 15:36:18	1.2
+++ deliantra/server/ext/dm-support.ext	2007/01/12 01:29:23	1.3
@@ -15,25 +15,23 @@
    my (%l, @l); # for use by shell users
 
    print $fh "Welcome!\n",
-             "Remember that everything entered here will be executed as a sync_job in cf::!\n",
+             "Remember that everything entered here will be in the main coro context within cf::!\n",
              "You can freely use \$a .. \$z and \@l and \%l\n";
    print $fh "\n> ";
 
-   Event->io (fd => $fh, poll => 'r', data => cf::WF_AUTOCANCEL, cb => sub {
+   Event->io (fd => $fh, poll => 'r', data => 0, cb => sub {
       if (defined (my $cmd = <$fh>)) {
          my $old_fh = select $fh;
 
          if ($cmd =~ /^\s*exit\b/i) {
             print "will not exit() server.\n";
          } else {
-            cf::sync_job {
-               package cf;
-               my @res = eval $cmd;
-               warn "tcpshell evaluation error: $@" if $@;
-               print $@ if $@;
+            package cf;
+            my @res = eval $cmd;
+            warn "tcpshell evaluation error: $@" if $@;
+            print $@ if $@;
 
-               print cf::dumpval @res > 1 ? \@res : $res[0] if @res;
-            };
+            print cf::dumpval @res > 1 ? \@res : $res[0] if @res;
          }
 
          print "\n> ";