Author: spadkins
Date: Sat Jul 1 20:44:43 2006
New Revision: 6607
Modified:
p5ee/trunk/App-Context/lib/App/Context/Server.pm
Log:
add application-driven async event assignment
Modified: p5ee/trunk/App-Context/lib/App/Context/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/Server.pm (original)
+++ p5ee/trunk/App-Context/lib/App/Context/Server.pm Sat Jul 1 20:44:43 2006
@@ -647,7 +647,9 @@
$self->shutdown();
$self->exit($exitval);
}
+ my $destination = $event->{destination} || "local";
$self->{num_async_events}++;
+ $self->{node}{$destination}{num_async_events}++;
my $runtime_event_token = $pid;
$self->{running_async_event}{$runtime_event_token} = [ $event,
$callback_event ];
&App::sub_exit() if ($App::trace);
@@ -716,7 +718,9 @@
unlink($returnvalfile);
}
+ my $destination = $event->{destination} || "local";
$self->{num_async_events}--;
+ $self->{node}{$destination}{num_async_events}--;
delete $self->{running_async_event}{$runtime_event_token};
if ($callback_event) {
