[svn:p5ee] r10352 - p5ee/trunk/App-Context/lib/App/Context/POE

[spadkins]

Author: spadkins
Date: Mon Dec  3 09:21:25 2007
New Revision: 10352

Modified:
   p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm

Log:
update to split faster

Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        (original)
+++ p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        Mon Dec  3 
09:21:25 2007
@@ -396,7 +396,7 @@
 
 sub send_async_event {
     &App::sub_entry if ($App::trace);
-    my ($self, $event, $callback_event, $unique_event_name, 
$unique_event_method) = @_;
+    my ($self, $event, $callback_event, $unique_event_name, 
$unique_event_method, $count) = @_;
 
     my $event_token = $self->new_event_token();
     $event->{event_token} = $event_token;
@@ -405,7 +405,7 @@
             && !$unique_event_method)
         || (   $unique_event_name
             && $unique_event_method
-            && ($self->count_in_pending_async_events($unique_event_name, 
$unique_event_method) <= 1)) ) {
+            && ($self->count_in_pending_async_events($unique_event_name, 
$unique_event_method) <= $count)) ) {
         push(@{$self->{pending_async_events}}, [ $event, $callback_event ]);
     }