… | |
… | |
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 { |