| … | |
… | |
| 78 | $self->{conn}->disconnect; |
78 | $self->{conn}->disconnect; |
| 79 | |
79 | |
| 80 | # initialize new socket and connection |
80 | # initialize new socket and connection |
| 81 | #my $sock = new IO::Socket::INET PeerHost => "kgs.kiseido.com", PeerPort => "2379" |
81 | #my $sock = new IO::Socket::INET PeerHost => "kgs.kiseido.com", PeerPort => "2379" |
| 82 | my $sock = new IO::Socket::INET PeerHost => $ENV{KGSHOST} || "kgs.kiseido.com", PeerPort => "2379" |
82 | my $sock = new IO::Socket::INET PeerHost => $ENV{KGSHOST} || "kgs.kiseido.com", PeerPort => "2379" |
| 83 | or die; |
83 | or die "connect: $!"; |
| 84 | |
84 | |
| 85 | $sock->blocking(1); |
85 | $sock->blocking(1); |
| 86 | $self->{conn}->handshake($sock); |
86 | $self->{conn}->handshake($sock); |
| 87 | $sock->blocking(0); |
87 | $sock->blocking(0); |
| 88 | |
88 | |
