| … | |
… | |
| 916 | unless defined $profile; |
916 | unless defined $profile; |
| 917 | |
917 | |
| 918 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
918 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
| 919 | |
919 | |
| 920 | if (exists $CONFIG->{secure}) { |
920 | if (exists $CONFIG->{secure}) { |
| 921 | $SECURE = eval $CONFIG->{secure} ? "sub { 0 }" : "sub { 1 }"; |
921 | $SECURE = eval +($CONFIG->{secure} ? "sub { 0 }" : "sub { 1 }"); |
| 922 | } |
922 | } |
| 923 | |
923 | |
| 924 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : "$profile/"; |
924 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : "$profile/"; |
| 925 | |
925 | |
| 926 | $node or Carp::croak "$node: illegal node ID (see AnyEvent::MP manpage for syntax)\n"; |
926 | $node or Carp::croak "$node: illegal node ID (see AnyEvent::MP manpage for syntax)\n"; |
