… | |
… | |
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 | unshift @_, "$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" |