From a44fef00cac9f4eff7165e339f826c29c6040ba2 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jstephenson@mvlc.org>
Date: Wed, 19 Jun 2013 13:22:53 -0400
Subject: [PATCH] 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>
---
 src/perl/lib/OpenSRF/Server.pm | 5 +++++
 1 file changed, 5 insertions(+)

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*";
-- 
2.11.0