18 |
push @a, scalar localtime() if $a[0] =~ m{^info}; |
push @a, scalar localtime() if $a[0] =~ m{^info}; |
19 |
|
|
20 |
if ( ! defined $meteor_fh ) { |
if ( ! defined $meteor_fh ) { |
21 |
$meteor_fh = IO::Socket::INET->new( $meteor_server ) |
warn "# open connection to $meteor_server"; |
22 |
|| warn "can't connect to meteor $meteor_server: $!"; # FIXME warn => die for production |
$meteor_fh = IO::Socket::INET->new( |
23 |
|
PeerAddr => $meteor_server, |
24 |
|
Timeout => 1, |
25 |
|
) || warn "can't connect to meteor $meteor_server: $!"; # FIXME warn => die for production |
26 |
$meteor_fh = 0; # don't try again |
$meteor_fh = 0; # don't try again |
27 |
} |
} |
28 |
|
|