diff options
author | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
---|---|---|
committer | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
commit | cc8773c013ccdaec9cb8d2c57d85a70c368e102f (patch) | |
tree | 75c4d64ff937319b810abe13657eb1924017f8d3 /perl.c | |
parent | 52a66c2cc3722485e8a16f1da9c026524180ca8c (diff) | |
download | perl-cc8773c013ccdaec9cb8d2c57d85a70c368e102f.tar.gz |
New debugging flag -DB now dumps subroutine definitions,
leaving -Dx for its original purpose of dumping syntax trees.
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2864,6 +2864,7 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp) " A Consistency checks on internal structures", " q quiet - currently only suppresses the 'EXECUTING' message", " M trace smart match resolution", + " B dump suBroutine definitions, including special Blocks like BEGIN", NULL }; int i = 0; @@ -2872,7 +2873,7 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp) if (isALPHA(**s)) { /* if adding extra options, remember to update DEBUG_MASK */ - static const char debopts[] = "psltocPmfrxuUHXDSTRJvCAqM"; + static const char debopts[] = "psltocPmfrxuUHXDSTRJvCAqMB"; for (; isALNUM(**s); (*s)++) { const char * const d = strchr(debopts,**s); |