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

[email protected] Thu, 17 Jan 2008 08:05:39 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Thu Jan 17 08:05:38 2008
New Revision: 10580

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.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	Thu Jan 17 08:05:38 2008
@@ -661,6 +661,11 @@
         }
     }
 
+    if (!$released) {
+        $context->log("WorkQueue: _release_in_mem: release[$released] key[$entry_key] entry[$entry->{subrequest_id} $entry->{actual_data_source}]\n");
+        $context->log("WorkQueue: _release_in_mem: entry_keys[" . join(" ", sort(map {$self->_hash_to_key($_)} @$data)) . "]\n");
+    }
+
     &App::sub_exit($released) if ($App::trace);
     return($released);
 }