… | |
… | |
167 | sub create_miniport(&) { |
167 | sub create_miniport(&) { |
168 | my $cb = shift; |
168 | my $cb = shift; |
169 | my $id = "$AnyEvent::MP::Base::UNIQ." . ++$AnyEvent::MP::Base::ID; |
169 | my $id = "$AnyEvent::MP::Base::UNIQ." . ++$AnyEvent::MP::Base::ID; |
170 | |
170 | |
171 | $AnyEvent::MP::Base::PORT{$id} = sub { |
171 | $AnyEvent::MP::Base::PORT{$id} = sub { |
|
|
172 | $_[0] = "$NODE#$id"; |
172 | &$cb |
173 | &$cb |
173 | and delete $AnyEvent::MP::Base::PORT{$id}; |
174 | and delete $AnyEvent::MP::Base::PORT{$id}; |
174 | }; |
175 | }; |
175 | |
176 | |
176 | "$NODE#$id" |
177 | "$NODE#$id" |