--- Coro/myhttpd/shell.pl	2001/08/11 16:34:47	1.6
+++ Coro/myhttpd/shell.pl	2001/08/11 16:53:59	1.7
@@ -48,8 +48,9 @@
    push @listen_sockets, $port;
 
    async {
-      async \&shell, $port->accept
-         while 1;
+      while () {
+         async \&shell, scalar $port->accept;
+      }
    };
 }