[svn:p5ee] r6607 - p5ee/trunk/App-Context/lib/App/Context

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