--- Coro/myhttpd/shell.pl	2004/02/12 22:18:27	1.22
+++ Coro/myhttpd/shell.pl	2007/12/08 21:01:17	1.23
@@ -1,9 +1,10 @@
 # a server command shell
 
+use EV;
 use Coro;
+use Coro::EV;
 use Coro::Handle;
 use Coro::Socket;
-use Event;
 use Time::HiRes 'time';
 
 use Text::Abbrev;
@@ -26,7 +27,7 @@
             last;
          } elsif ($cmd eq "squit") {
             print $fh "server quit.\n";#d#
-            Event::unloop;
+            EV::unloop;
             last;
          } elsif ($cmd eq "print") {
             my @res = eval $_;
@@ -61,7 +62,7 @@
             delete $diridx{$_} for keys %diridx; # server error on %diridx = ();
          } elsif ($cmd eq "restart") {
             $::RESTART = 1;
-            unloop;
+            EV::unloop;
             print $fh "restarting, cu!\n";
             last;
          } elsif ($cmd eq "country") {