From: Jason Stephenson <jstephenson@mvlc.org>
Date: Wed, 19 Jun 2013 17:22:53 +0000 (-0400)
Subject: Add debugger breakpoints in OpenSRF::Server::Child::run().
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a44fef00cac9f4eff7165e339f826c29c6040ba2;p=working%2FOpenSRF.git

Add debugger breakpoints in OpenSRF::Server::Child::run().

Following directions here:

https://docs.google.com/document/d/1CGMPWG2Pb5_mhnnEzXywfkQTnp8OeCdMivjd9Pap_ow

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
---

diff --git a/src/perl/lib/OpenSRF/Server.pm b/src/perl/lib/OpenSRF/Server.pm
index d8103b6..25969c8 100644
--- a/src/perl/lib/OpenSRF/Server.pm
+++ b/src/perl/lib/OpenSRF/Server.pm
@@ -598,9 +598,14 @@ sub run {
 
     # main child run loop.  Ends when this child hits max requests.
     while(1) {
+        # Add a debugger breakpoint.
+        $DB::single = 1;
 
         my $data = $self->wait_for_request or next;
 
+        # Add another debugger breakpoint
+        $DB::single = 1;
+
         # Update process name to show activity
         my $orig_name = $0;
         $0 = "$0*";