--- AnyEvent-MP/MP.pm	2016/06/20 16:58:30	1.148
+++ AnyEvent-MP/MP.pm	2016/08/17 19:45:18	1.150
@@ -420,7 +420,7 @@
 sub rcv($@);
 
 my $KILME = sub {
-   (my $tag = substr $_[0], 0, 30) =~ s/([\x20-\x7e])/./g;
+   (my $tag = substr $_[0], 0, 30) =~ s/([^\x20-\x7e])/./g;
    kil $SELF, unhandled_message => "no callback found for message '$tag'";
 };
 
@@ -1316,7 +1316,7 @@
 ignored:
 
   db_mon $group => sub {
-     my ($ports, $add, $chg, $lde) = @_;
+     my ($ports, $add, $chg, $del) = @_;
      $ports = [keys %$ports];
 
      # now $ports, $add and $del are the same as