diff options
author | Karl Williamson <khw@cpan.org> | 2019-11-07 10:42:14 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-11-17 13:53:27 -0700 |
commit | 5d7580af4b14229eafb27db9b7a34b8b918876b4 (patch) | |
tree | 4f172db85f6e577c36444cd511b85a829e237aea /perl.c | |
parent | f6977feef2fbfefb19932acc5cb296fe31e19835 (diff) | |
download | perl-5d7580af4b14229eafb27db9b7a34b8b918876b4.tar.gz |
Add -Dy debugging of tr///, y///
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3360,6 +3360,7 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp) " B dump suBroutine definitions, including special Blocks like BEGIN\n", " L trace some locale setting information--for Perl core development\n", " i trace PerlIO layer processing\n", + " y trace y///, tr/// compilation and execution\n", NULL }; UV uv = 0; @@ -3368,7 +3369,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[] = "psltocPmfrxuUHXDSTRJvCAqMBLi"; + static const char debopts[] = "psltocPmfrxuUHXDSTRJvCAqMBLiy"; for (; isWORDCHAR(**s); (*s)++) { const char * const d = strchr(debopts,**s); |