| … | … | ||
|---|---|---|---|
| 418 | =cut | 418 | =cut |
| 419 | 419 | ||
| 420 | sub rcv($@); | 420 | sub rcv($@); |
| 421 | 421 | ||
| 422 | my $KILME = sub { | 422 | my $KILME = sub { |
| 423 | (my $tag = substr $_[0], 0, 30) =~ s/([\x20-\x7e])/./g; | 423 | (my $tag = substr $_[0], 0, 30) =~ s/([^\x20-\x7e])/./g; |
| 424 | kil $SELF, unhandled_message => "no callback found for message '$tag'"; | 424 | kil $SELF, unhandled_message => "no callback found for message '$tag'"; |
| 425 | }; | 425 | }; |
| 426 | 426 | ||
| 427 | sub port(;&) { | 427 | sub port(;&) { |
| 428 | my $id = $UNIQ . ++$ID; | 428 | my $id = $UNIQ . ++$ID; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |