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