Schwern Schwern - 1 month ago 15
Perl Question

How do I get the Perl debugger to not stop at "100 levels deep in subroutine calls"

I'm working with a big, old, messy, bloated framework. It regularly goes well over 100 levels deep in subroutine calls. The Perl debugger sees fit to stop and inform me of this fact... over and over again.

Package::Stash::name(/usr/local/perl/5.10.1/lib/site_perl/5.10.1/Package/Stash.pm:21):
21: return $_[0]->{package};
100 levels deep in subroutine calls!
DB<1>


How do I make the Perl debugger not care about how big the stack is?

Thanks.

Answer

Add the line:

$DB::deep = 500; # or more if necessary

to the start of your program.

The following program runs to completion in the debugger:

use strict;
use warnings;
sub f($) {
        my $x = shift;
        print "$x\n";
        if ($x < 200) {
                f(1 + $x);
        }
}
$DB::deep = 500;
f(1);

outputting:

198
199
200
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<1> _

Without the $DB::deep = 500; line, it stops at 100, the same as yours:

97
98
99
main::f(qq.pl:4):               my $x = shift;
100 levels deep in subroutine calls!
  DB<1> _

That's been tested successfully up to a stack depth of 50,000 (use 50000 in the if statement and set $DB::deep to 50001). If your stack depth is greater than that, I suspect you should be re-engineering rather than debugging :-)

By the way, if you don't want to touch the code at all, you can change that value in the debugger before running your code - just enter $Db::deep=500; before you enter c to run the code, or just set it in your .perldb file:

BEGIN {$DB::deep = 500;}
Comments