| … | |
… | |
| 279 | |
279 | |
| 280 | push @{ $gmon{$grp} }, $cb; |
280 | push @{ $gmon{$grp} }, $cb; |
| 281 | $cb->(((grp_get $grp) || return) x 2, []); |
281 | $cb->(((grp_get $grp) || return) x 2, []); |
| 282 | }; |
282 | }; |
| 283 | |
283 | |
| 284 | defined wantarray && AnyEvent::Util::::guard { |
284 | defined wantarray && AnyEvent::Util::guard { |
| 285 | my @mon = grep $_ != $cb, @{ delete $gmon{$grp} }; |
285 | my @mon = grep $_ != $cb, @{ delete $gmon{$grp} }; |
| 286 | $gmon{$grp} = \@mon if @mon; |
286 | $gmon{$grp} = \@mon if @mon; |
| 287 | undef $cb; |
287 | undef $cb; |
| 288 | } |
288 | } |
| 289 | } |
289 | } |
