--- cf.schmorp.de/maps/perl/tcp.ext	2006/12/14 04:31:25	1.1
+++ cf.schmorp.de/maps/perl/tcp.ext	2006/12/15 19:06:29	1.2
@@ -18,7 +18,7 @@
    exit (2);
 }
 
-Event->io (fd => $LISTEN, poll => 'r', cb => sub {
+Event->io (fd => $LISTEN, poll => 'r', data => cf::WF_AUTOCANCEL, cb => sub {
    my ($fh, $peername) = $LISTEN->accept
       or return;