Front page | perl.perl5.porters |
Postings from March 2013
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