--- 3m-810.pl	2009/04/01 16:59:09	26
+++ 3m-810.pl	2009/04/06 11:21:15	27
@@ -18,8 +18,11 @@
 	push @a, scalar localtime() if $a[0] =~ m{^info};
 
 	if ( ! defined $meteor_fh ) {
-		$meteor_fh = IO::Socket::INET->new( $meteor_server )
-			|| warn "can't connect to meteor $meteor_server: $!"; # FIXME warn => die for production
+		warn "# open connection to $meteor_server";
+		$meteor_fh = IO::Socket::INET->new(
+				PeerAddr => $meteor_server,
+				Timeout => 1,
+		) || warn "can't connect to meteor $meteor_server: $!"; # FIXME warn => die for production
 		$meteor_fh = 0; # don't try again
 	}