… | |
… | |
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; |