From 7aeefbb3234c8cf563ba8065fec1b841ee1415ab Mon Sep 17 00:00:00 2001
From: Mark Jason Dominus <mjd@plover.com>
Date: Fri, 7 Jun 2013 11:42:07 -0400
Subject: [PATCH] adjust $DB::deep from 100 to 1000

$DB::deep defaults to 100; this means that when the debugger gets 100
levels deep in subroutine calls, it automatically breaks execution.
While this might have been appropriate in 1989, in modern Perl programs,
the debugger might break before the program is even compiled.

This patch adjusts the default value up to 1000.

I was not able to find the default value documented anywhere.
---
 lib/DB.pm      | 2 +-
 lib/perl5db.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/DB.pm b/lib/DB.pm
index 6c1ce56..cbaff90 100644
--- a/lib/DB.pm
+++ b/lib/DB.pm
@@ -48,7 +48,7 @@ BEGIN {
   $running = 1;         # are we running, or are we stopped?
   @stack = (0);
   @clients = ();
-  $deep = 100;
+  $deep = 1000;
   $ready = 0;
   @saved = ();
   @skippkg = ();
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 8db61dd..188b8fb 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -9030,7 +9030,7 @@ BEGIN {    # This does not compile, alas. (XXX eh?)
 
     # This defines the point at which you get the 'deep recursion'
     # warning. It MUST be defined or the debugger will not load.
-    $deep = 100;
+    $deep = 1000;
 
     # Number of lines around the current one that are shown in the
     # 'w' command.
-- 
2.7.4