--- AnyEvent-MP/MP/Node.pm	2009/09/11 02:32:23	1.41
+++ AnyEvent-MP/MP/Node.pm	2009/09/23 11:57:16	1.42
@@ -250,7 +250,8 @@
    my ($self, $port, @reason) = @_;
 
    my $delay_cb = sub {
-      delete $AnyEvent::MP::Kernel::PORT{$port};
+      delete $AnyEvent::MP::Kernel::PORT{$port}
+         or return; # killing nonexistent ports is O.K.
       delete $AnyEvent::MP::Kernel::PORT_DATA{$port};
 
       my $mon = delete $AnyEvent::MP::Kernel::LMON{$port}