| … | … | ||
|---|---|---|---|
| 400 | 400 | ||
| 401 | sub rcv($@); | 401 | sub rcv($@); |
| 402 | 402 | ||
| 403 | my $KILME = sub { | 403 | my $KILME = sub { |
| 404 | (my $tag = substr $_[0], 0, 30) =~ s/([\x20-\x7e])/./g; | 404 | (my $tag = substr $_[0], 0, 30) =~ s/([\x20-\x7e])/./g; |
| 405 | kil $SELF, unhandled_message => "no callback set for message (first element $tag)"; | 405 | kil $SELF, unhandled_message => "missing (tag or fallback) callback for message '$tag'"; |
| 406 | }; | 406 | }; |
| 407 | 407 | ||
| 408 | sub port(;&) { | 408 | sub port(;&) { |
| 409 | my $id = $UNIQ . ++$ID; | 409 | my $id = $UNIQ . ++$ID; |
| 410 | my $port = "$NODE#$id"; | 410 | my $port = "$NODE#$id"; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |