--- AnyEvent-MP/MP.pm 2009/09/22 09:38:28 1.90 +++ AnyEvent-MP/MP.pm 2009/09/22 14:14:43 1.94 @@ -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 ); @@ -567,7 +567,7 @@ $node->monitor ($port, $cb); defined wantarray - and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } + and ($cb += 0, AnyEvent::Util::guard { $node->unmonitor ($port, $cb) }) } =item $guard = mon_guard $port, $ref, $ref...