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 (file)
--- 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*";