summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-11-07 10:42:14 -0700
committerKarl Williamson <khw@cpan.org>2019-11-17 13:53:27 -0700
commit5d7580af4b14229eafb27db9b7a34b8b918876b4 (patch)
tree4f172db85f6e577c36444cd511b85a829e237aea /perl.c
parentf6977feef2fbfefb19932acc5cb296fe31e19835 (diff)
downloadperl-5d7580af4b14229eafb27db9b7a34b8b918876b4.tar.gz
Add -Dy debugging of tr///, y///
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index d14da14925..43f6f9b00a 100644
--- a/perl.c
+++ b/perl.c
@@ -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);