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

[email protected] Tue, 30 Oct 2007 13:41:45 -0700 (PDT)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Tue Oct 30 13:41:44 2007
New Revision: 10142

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

Log:
added some context log information to help us track down the acquire bug in mvworkd

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	Tue Oct 30 13:41:44 2007
@@ -501,6 +501,10 @@
                     }
                     else {
                         $self->_release_resources($entry);
+                        my $context = $self->{context};
+                        my $db = $self->_db();
+                        $context->log("ACQUISITION FAILED : shop_request_id[$entry->{shop_request_id}] : subrequest_id[$entry->{subrequest_id}] : request_status[$entry->{request_status}] : last sql stmt[$db->{sql}]\n");
+                        $entry = undef;
                         # the following line appears to have been a bug
                         #$self->_maintain_queue_buffers("release",$entry);
                         #$self->_maintain_queue_buffers("unacquire",$entry);