X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=7cb8530b245ca5786d9378f1cad227d9494593d4;hb=85831461cd8850ede28b33bf03b6fe7a7904e0dc;hp=9ef9cd71168c4ba0874ad215728612cc19cbd6f6;hpb=f89a1e08e6fb41e93df685b7f838ff9bf916f2f4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 9ef9cd7..7cb8530 100644
--- a/perl.c
+++ b/perl.c
@@ -2863,6 +2863,8 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp)
       "  C  Copy On Write",
       "  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;
@@ -2871,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[] = "psltocPmfrxuUHXDSTRJvCAq";
+	static const char debopts[] = "psltocPmfrxuUHXDSTRJvCAqMB";
 
 	for (; isALNUM(**s); (*s)++) {
 	    const char * const d = strchr(debopts,**s);