| … | |
… | |
| 383 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
383 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
| 384 | |
384 | |
| 385 | delete $NODE{$NODE}; # we do not support doing stuff before configure |
385 | delete $NODE{$NODE}; # we do not support doing stuff before configure |
| 386 | |
386 | |
| 387 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
387 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
|
|
388 | |
|
|
389 | $node or Carp::croak "$node: illegal node ID (see AnyEvent::MP manpage for syntax)\n"; |
|
|
390 | |
| 388 | $NODE = $node |
391 | $NODE = $node |
| 389 | unless $node eq "anon/"; |
392 | unless $node eq "anon/"; |
| 390 | |
393 | |
| 391 | $NODE{$NODE} = $NODE{""}; |
394 | $NODE{$NODE} = $NODE{""}; |
| 392 | $NODE{$NODE}{id} = $NODE; |
395 | $NODE{$NODE}{id} = $NODE; |
