Author: spadkins
Date: Thu Nov 8 11:19:57 2007
New Revision: 10199
Modified:
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
Log:
more logging to track down our slowness
Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm Thu Nov 8 11:19:57 2007
@[EMAIL PROTECTED]
-1512,6 +1512,9 @[EMAIL PROTECTED]
&App::sub_entry if ($App::trace);
my ($self, $entry, $constraints) = @[EMAIL PROTECTED]
+ my $context = $self->{context};
+ $context->log("NOTE: _acquire_resources called : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
my $complies = 1;
my $global_constraints = $self->{global_constraints};
@[EMAIL PROTECTED]
-1632,6 +1635,9 @[EMAIL PROTECTED]
&App::sub_entry if ($App::trace);
my ($self, $entry, $constraints) = @[EMAIL PROTECTED]
+ my $context = $self->{context};
+ $context->log("NOTE: _release_resources called : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
my $global_constraints = $self->{global_constraints};
if (!$global_constraints || $#$global_constraints == -1) {
# do nothing
|
