[svn:p5ee] r10199 - p5ee/trunk/App-WorkQueue/lib/App

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
@@ -1512,6 +1512,9 @@
     &App::sub_entry if ($App::trace);
     my ($self, $entry, $constraints) = @_;
 
+    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};
@@ -1632,6 +1635,9 @@
     &App::sub_entry if ($App::trace);
     my ($self, $entry, $constraints) = @_;
 
+    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