| … | |
… | |
| 224 | delete $AnyEvent::MP::Kernel::PORT{$port}; |
224 | delete $AnyEvent::MP::Kernel::PORT{$port}; |
| 225 | delete $AnyEvent::MP::Kernel::PORT_DATA{$port}; |
225 | delete $AnyEvent::MP::Kernel::PORT_DATA{$port}; |
| 226 | |
226 | |
| 227 | my $mon = delete $AnyEvent::MP::Kernel::LMON{$port} |
227 | my $mon = delete $AnyEvent::MP::Kernel::LMON{$port} |
| 228 | or !@reason |
228 | or !@reason |
| 229 | or $AnyEvent::MP::Kernel::WARN->(2, "unmonitored local port $port died with reason: @reason"); |
229 | or $AnyEvent::MP::Kernel::WARN->(8, "unmonitored local port $port died with reason: @reason"); |
| 230 | |
230 | |
| 231 | $_->(@reason) for values %$mon; |
231 | $_->(@reason) for values %$mon; |
| 232 | } |
232 | } |
| 233 | |
233 | |
| 234 | sub monitor { |
234 | sub monitor { |
