--- Coro/eg/event	2001/07/24 20:18:12	1.7
+++ Coro/eg/event	2001/07/27 02:51:33	1.8
@@ -11,7 +11,7 @@
    my $user = shift;
    my $host = shift;
 
-   my $fh = new_inet Coro::Socket PeerHost => $host, PeerPort => "finger"
+   my $fh = new Coro::Socket PeerHost => $host, PeerPort => "finger"
       or die;
 
    print $fh "$user\n";