| … | |
… | |
| 314 | |
314 | |
| 315 | $cv |
315 | $cv |
| 316 | } |
316 | } |
| 317 | |
317 | |
| 318 | sub initialise_node(;$%) { |
318 | sub initialise_node(;$%) { |
| 319 | my ($profile) = @_; |
319 | my ($profile, %kv) = @_; |
| 320 | |
320 | |
| 321 | $profile = _nodename |
321 | $profile = _nodename |
| 322 | unless defined $profile; |
322 | unless defined $profile; |
| 323 | |
323 | |
| 324 | $CONFIG = AnyEvent::MP::Config::find_profile $profile; |
324 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
| 325 | |
325 | |
| 326 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
326 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
| 327 | $NODE = $node |
327 | $NODE = $node |
| 328 | unless $node eq "anon/"; |
328 | unless $node eq "anon/"; |
| 329 | |
329 | |
