--- AnyEvent-MP/MP.pm 2009/08/02 18:08:38 1.11 +++ AnyEvent-MP/MP.pm 2009/08/02 18:11:48 1.12 @@ -169,6 +169,7 @@ my $id = "$AnyEvent::MP::Base::UNIQ." . ++$AnyEvent::MP::Base::ID; $AnyEvent::MP::Base::PORT{$id} = sub { + $_[0] = "$NODE#$id"; &$cb and delete $AnyEvent::MP::Base::PORT{$id}; };