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
@[EMAIL PROTECTED]
-396,7 +396,7 @[EMAIL PROTECTED]
sub send_async_event {
&App::sub_entry if ($App::trace);
- my ($self, $event, $callback_event, $unique_event_name,
$unique_event_method) = @[EMAIL PROTECTED]
my ($self, $event, $callback_event, $unique_event_name,
$unique_event_method, $count) = @[EMAIL PROTECTED]
my $event_token = $self->new_event_token();
$event->{event_token} = $event_token;
@[EMAIL PROTECTED]
-405,7 +405,7 @[EMAIL PROTECTED]
&& !$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(@[EMAIL PROTECTED]
>{pending_async_events}}, [ $event, $callback_event
]);
}
|
