/[RFID]/3m-810.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /3m-810.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 26 by dpavlin, Wed Apr 1 16:59:09 2009 UTC revision 27 by dpavlin, Mon Apr 6 11:21:15 2009 UTC
# Line 18  sub meteor { Line 18  sub meteor {
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    
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26