| … | |
… | |
| 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 | unshift @_, "$NODE#$id"; |
| 173 | &$cb |
173 | &$cb |
| 174 | and delete $AnyEvent::MP::Base::PORT{$id}; |
174 | and delete $AnyEvent::MP::Base::PORT{$id}; |
| 175 | }; |
175 | }; |
| 176 | |
176 | |
| 177 | "$NODE#$id" |
177 | "$NODE#$id" |
