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

[email protected] Mon, 12 Nov 2007 10:32:50 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Mon Nov 12 10:32:48 2007
New Revision: 10231

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm

Log:
more logging to catch yet another case where async_events and num_workers gets out of whack, this time in _release_in_mem

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	Mon Nov 12 10:32:48 2007
@@ -637,9 +637,13 @@
         for ($e = 0; $e <= $#$data; $e++) {
             $ent = $data->[$e];
             if ($self->_hash_to_key($ent) eq $entry_key) {
+                ### TODO: Rare occasions we get here, and have not called _release_resources, why?
                 if ($ent->{$status_attrib} eq $STATUS_ACQUIRED) {
                     $self->_release_resources($ent);
                 }
+                else {
+                    $context->log("NOTE: _release_in_mem NO _release_resources : STATUS_ACQUIRED[$STATUS_ACQUIRED] : entry[" . join("|",@$ent) . "]\n");
+                }
                 $self->update($ent,\@columns,\@values);
                 splice(@$data, $e, 1);
                 print "RELEASED[M]: {", join("|",%$entry), "}\n" if ($verbose);