Author: spadkins
Date: Fri Nov 9 10:14:16 2007
New Revision: 10213
Modified:
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm
Log:
more logging
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 Fri Nov 9 10:14:16 2007
@[EMAIL PROTECTED]
-1514,10 +1514,6 @[EMAIL PROTECTED]
sub _acquire_resources {
&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]
-1602,6 +1598,10 @[EMAIL PROTECTED]
foreach my $c (@[EMAIL PROTECTED]
) {
$c->[$GCONSTR_COUNTS]{$c->[$GCONSTR_COUNT_ATTRIB]} ++;
}
+
+ my $context = $self->{context};
+ $context->log("NOTE: _acquire_resources : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
}
&App::sub_exit($complies) if ($App::trace);
@[EMAIL PROTECTED]
-1639,7 +1639,7 @[EMAIL PROTECTED]
my ($self, $entry, $constraints) = @[EMAIL PROTECTED]
my $context = $self->{context};
- $context->log("NOTE: _release_resources called : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+ $context->log("NOTE: _release_resources : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
my $global_constraints = $self->{global_constraints};
if (!$global_constraints || $#$global_constraints == -1) {
@[EMAIL PROTECTED]
-1906,3 +1906,4 @[EMAIL PROTECTED]
+
Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm Fri Nov 9
10:14:16 2007
@[EMAIL PROTECTED]
-709,3 +709,4 @[EMAIL PROTECTED]
1;
+
|
