--- AnyEvent-MP/MP.pm 2009/09/22 09:38:28 1.90 +++ AnyEvent-MP/MP.pm 2009/09/22 14:13:33 1.92 @@ -150,7 +150,7 @@ our @EXPORT = qw( NODE $NODE *SELF node_of after configure - snd rcv mon mon_guard kil reg psub spawn cal + snd rcv mon mon_guard kil psub spawn cal port ); @@ -566,6 +566,8 @@ $node->monitor ($port, $cb); + $cb += 0; + defined wantarray and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } }