Any objections to similarly raising PERL_SUB_DEPTH_WARN from 100 to 1000? This controls the deep recursion warning. (It can currently be overridden by configuring Perl with -DPERL_SUB_DEPTH_WARN=1000.) I'll compose the patch if there are no objections. On Fri, Mar 29, 2013 at 11:18 AM, Mark-Jason Dominus < perlbug-followup@perl.org> wrote: > # New Ticket Created by Mark-Jason Dominus > # Please include the string: [perl #117407] > # in the subject line of all future correspondence about this issue. > # <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=117407 > > > > > $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 03f2b21..4783389 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 85a5ef4..68ba556 100644 > - --- a/lib/perl5db.pl > +++ b/lib/perl5db.pl > @@ -9157,7 +9157,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. > - -- > 1.8.2 > >Thread Previous | Thread Next