… | |
… | |
344 | $node->{trial}{accept} = $tp; |
344 | $node->{trial}{accept} = $tp; |
345 | }, |
345 | }, |
346 | ; |
346 | ; |
347 | } |
347 | } |
348 | |
348 | |
349 | connect_node $_ for @others; |
349 | for (@others) { |
|
|
350 | my $node = add_node $_; |
|
|
351 | $node->{autoconnect} = 1; |
|
|
352 | $node->connect; |
|
|
353 | } |
350 | |
354 | |
351 | if ($SLAVE) { |
355 | if ($SLAVE) { |
352 | my $timeout = AE::timer $MONITOR_TIMEOUT, 0, sub { $SLAVE->() }; |
356 | my $timeout = AE::timer $MONITOR_TIMEOUT, 0, sub { $SLAVE->() }; |
353 | my $master = $SLAVE->recv; |
357 | my $master = $SLAVE->recv; |
354 | $master |
358 | $master |