Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^3: Deep recursion problem

by ikegami (Pope)
on Feb 11, 2013 at 23:02 UTC ( #1018259=note: print w/replies, xml ) Need Help??

in reply to Re^2: Deep recursion problem
in thread Deep recursion problem

Hmmm... there are two cases: with or without running the debugger. I assume you meant the case without the debugger.

No, I meant what I said. $DB::deep has no effect on the warning. Ever.

With the debugger, one can set the threshold higher than 100 interactively prior to running the program

That's not true.

>perl -dwe"$DB::deep = 1000; sub f { f($_[0]-1) if $_[0]; } f(150);" Loading DB routines from version 1.37 Editor support available. Enter h or 'h h' for help, or 'perldoc perldebug' for more help. main::(-e:1): $DB::deep = 1000; sub f { f($_[0]-1) if $_[0]; } f(150 +); DB<1> r Deep recursion on subroutine "main::f" at C:/Progs/perl5161-ap1601/lib +/ line 3550. at C:/Progs/perl5161-ap1601/lib/ line 3550. ...

See the post to which you replied if you want to know what $DB::deep actually does.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018259]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (13)
As of 2018-06-25 20:19 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (128 votes). Check out past polls.